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-REM ra 
IDENTIFICATION 
PRODUCT CODE: ACF 615C-MC 
PRODUCT NAME : CKKACCO 11/44 POWER FAIL 
DATE CREATED: APRIL, 1981 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHORS: DAN MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT COR- 
PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE _ IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
rn OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLED BY DIGI-~ 


COPYRIGHT (C) 1979, 1981 BY DIGITAL. EGUIPMENT CORPORATION 
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1. ABSTRACT 
THIS PROGRAM IS MADE UP OF 11 SUBTESTS TO CHECK OUT THE POWER FAIL 
ON THE 11/44. THE 2 MSEC. POWER DOWN AND POWER UP TIME IS CHECKED ON 
EACK POWER FAIL. INITIALLY POWER FAILS ARE TRIED IN ALL PROCESSOR 
MODES THEN UNDER ERROR CONDITIONS LIKE STACK OVERFLOW, TIME OUT, AND 
ODD ADDRESS AND MEMORY MANAGEMENT ABORTS. FINALLY A MEMORY VOLATILITY 
TEST IS RUN ON ALL AVAILABLE MEMORY. 


fs REQUIREMENTS 


2.1 EQUIPMENT 
PDP 11/44 STANDARD COMPUTER WITH UP TO 1M WORDS OF CORE MEMORY. THIS 
PROGRAM WILL WORK WITH AUTOMATIC POWER FAIL HARDWARE (MANUFACTURING 
ONLY) OR WITH MANUALLY TRIGGERED POWER FAILURES FOR EACH TEST. 

2.2 STORAGE 


PROGRAM STORAGE - THE ROUTINES USE MEMORY 0 - 10142 


oo PRELIMINARY PROGRAMS 


IT IS ASSUMED THAT CPU,TRAPS,MEMORY MANAGEMENT AND UNIBUS MAP DIAGNOS~ 
TICS HAVE BEEN RUN SUCCESSFULLY. 


. = LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR ‘'XXDP"’ MEDIA. 
4. STARTING PROCEDURE 
4.1 STARTING ADDRESS 


200 IS THE PROGRAM STARTING ADDRESS 
4.2 CONTROL SWITCH SETTINGS 
SWITCH REGISTER <14> CONTROLS REPEATING OF A_ FAILING TEST. THIS BIT 


MUST BE SET TO A 1 (AFTER ERROR HALT) EVERY TIME THE TEST IS TO BE 
REPEATED. 
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ae OPERATING PROCEDURE 

aol MANUAL 
START PROGRAM AT ADDRESS 200. 
A MESSAGE WILL BE TYPED INDENTIFYING THE NAME OF THE PROGRAM, THE SIZE 
OF MEMORY, AND RUNNING INSTRUCTIONS. THE NUMBER OF EACH TEST WILL BE 
PRINTED AT THE BEGINNING OF EACH TEST. MANUALLY POWER DOWN THEN UP 
AFTER EACH TEST NUMBER APPEARS ON THE TTY. DO THE POWER DOWN AND UP 
FOR EACH TEST UNTIL THE END OF PASS MESSAGE IS RECEIVED. RANDOM 
CHARACTERS (INCLUDING FORM FEED) MAY PRINT DURING POWER CYCLING. THIS 
IS ACCEPTABLE. 

ae AUTOMATIC 
START THE PROGRAM AT 200. THE PROGRAM SIZES FOR THE PRESENCE OF AUTO- 
MATIC POWER FAIL HARDWARE. IF FOUND, TESTING WILL BE PROCEED WITH NO 
MANUAL INTERVENTION REQUIRED. TEST NUMBERS WILL BE PRINTED PRIOR TO 
EACH TEST. RANDOM CHARACTERS (INCLUDING FORM FEED) MAY PRINT DURING 
POWER CYCLING. THIS IS ACCEPTABLE. 

oe APT SETUP 
THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS ARE FOR 
EXECUTION WITH A 11/44 PROCESSOR, CACHE, 16K CORE MEMORY, AND 300 BAUD. 
THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 
1. E TABLE ‘A’ IS USED FOR APT DUMP MODE. 
2. E TABLE °B* IS USED FOR APT QV AND RUN TIME MODES. 

SENVM=240 SUPRESSES TYPEOUTS TO THE TERMINAL AND 
. $SWREG=4000 INHIBITS TEST ITERATIONS 
1ST PASS LONGEST ADDITIONAL 
RUN TIME TEST TIME RUN TIME 
5 5 0 
oenees 5 trae? °  aweowss 
4 B 

E-MODE/S-MODE 000/000 240/001 

(SENVM/S$ENV) 

SWITCH REGISTER 1 000000 004000 

($SWREG) 

SWITCH REGISTER 2 000000 


CPU TYPE/OPTIONS 00/0000 00/0000 
MEMORY MAP CODE 1 600/00000000 000/00000000 
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5.4 


6.2 


6.3 


8.2 


SUBROUTINE ABSTRACT 
PDWDWN AND POWUP 


THESE ROUTINES ARE USED TO SAVE AND RESTORE VITAL REGISTERS AND TEST 
THE TIME ALLOWED FOR POWER FAIL BY THE PROCESSOR. 


ERRORS 
ERROR PRINi OUT 


THE PROGRAM WILL IDENTIFY THE FAILING TEST AND PROVIDE PERTINENT INFOR- 
MATION ON ERROR. 


ERROR HALTS 
AFTER AN ERROR PRINTOUT, THE PROGRAM WILL HALT AND RETURN CONTROL 
TO THE CONSOLE. IF USING POWER FAIL HARDWARE AND YOU WISH TO STOP 
THE PROCESSOR YOU SHOULD USE THE HALT SWITCH ON THE FRONT PANCL, THE 
CONSOLE CTRL P WILL HANG UP TTY. TO GET IN CONSOLE MODE PUT HALT 
SWITCH ON, TO GET BACK INTO PROGRAM SET THE SWITCH TO RUN. 
IF AN ERROR OCCURS IN TEST 11 (THE MEMORY VOLITILITY TEST) THE 
PHYSICAL ADDRESS OF THE BAD MEMORY LOCATION CAN BE FOUND BY USING 
PAR.OFF AS BITS <21:6> AND ADDING VIR.ADD LOCATION <12:0> 10 IT. 
IF AN ERROR IS DETECTED IN THE POWER DOWN OR POWER UP SUBROUTINE 
THEN CONTINUING AFTER THE ERROR HALT,WILL RESTART THE PROGRAM AT 
ADDRESS 200. 
ERROR RECOVERY 


CONTINUE OR RESTART AT 200 


RESTRICTIONS 

NONE 

MISCELLANEOUS 

EXECUTION TIME 

5 SEC IF IN AUTOMATIC , N/A IF IN MANUAL 


STACK POINTER 
STACK IS INITALLY SET TO 1190 


eee me 
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-TITLE CKKACCO 11744 POWER FAIL 
:*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT CORP. 

; *MAYNARD , MASS. 01754 


: sPROGRAM BY DAN MILLEVILLE — 


« eTHIS PROGRAM WAS ASSEMBLED a hg PDP-11 MAINDEC SYSMAC 
: *PACKAGE (MAINDEC-11=DZQAC-C5), 1981. 


.SBTTL OPERATIONAL SWITCH SETTINGS 
- 


* SWITCH USE 
> i es cs ms ms SS SS RS 
* 14 LOOP ON TEST 
* 10 INHIBIT BELL AT END-OF-PASS 


-SBTTL BASIC DEFINITIONS 
>*INITIAL ADDRESS OF THE Re POINTER *** 1100 *** 
STACK= 1100 FIRST ADDRESS OF THE STACK 


® TKERNEL STACK 
SUPSTK= STACK-200 ;; SUPERVISOR STACK 
USESTK= STACK-300 


:z;USER STACK 
ERROR=EMT 


SCOPE=IOT 
PS= 177776 ;;PROCESSOR STATUS WORD 


PSW=PS 

STKLMT= 177774 :;STACK LIMIT REGISTER 

PIRQ= 177772 ;zPROGRAM INTERRUPT REQUEST REGISTER 

HARDWARE SWITCH REGISTER 

;;HARDWARE DISPLAY REGISTER 

LKS= 177546 =:LINE CLOCK (KW11-L) STATUS REGISTER 
; *MISCELLANEOUS DEFINITIONS 

HT= 17 ;CODE FOR HORIZONTAL TAB 


LF= 12 CODE LINE FEED 

CR= 15 7eC ODE CARRIAGE RETURN 

CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
> *GENERAL PURPOSE REGISTER DEFINITIONS 

RO= %0 :; GENERAL REGISTER 

R1= 41 :;GENERAL REGISTER 

R2= Ze : ;GENERAL REGISTER 

R3= 43 :: GENERAL REGISTER 

R4= 44 : :GENERAL REGISTER 

R5= 45 : ;GENERAL REGISTER 

R6= %6 : :GENERAL REGISTER 

R7= 37 ::GENERAL REGISTER 

R10=RO 

R11=R1 

R12=R2 

R13=R3 

R14=R4 

R15=R5 

SP= %6 ::STACK POINTER 

KSP=SP 


ee Ai 
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USP=SP 

PC= %7 ::PROGRAM COUNTER 
>*PRIORITY LEVEL DEFINITIONS 
PRO= 0 : ;PRIORITY LEVEL 
PR1= 40 sPRIORITY LEVEL 
PR2= 100 PRIORITY LEVEL 
PR3= 140 : ;PRIORITY LEVEL 
PR4= 200 > ;PRIORITY LEVEL 
PR5= 240 : PRIORITY LEVEL 
PR6= 300 ; PRIORITY LEVEL 
PR7= 340 : PRIORITY LEVEL 
:*''SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15= 100000 

SW14= 400 

SwWi3= 20000 

Swi2= 10000 

SW11= 4000 

Sw10= 2000 

SwO9= 1000 

SwO8= 400 

SwO7= 200 

Sw06= 100 

SWO5= 40 

SwO4= 20 

SwO3= 10 

SWO2= 4 

SWwOl1= 2 

wOO= 1 

Sw9=Sw09 

SW8=Sw08 

SW7=Sw07 

Sw5=Sw05 

SW4=SW04 

Sw3=Sw03 

SW2=SWwO02 

SwW1=Sw01 

SwO=S 

:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 10000 
BIT14= 40000 
BIT13= 20000 
BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

BITO6= 100 

BITOS= 4 

BITO04= 20 

BITO3= 10 

BITO2= 

BITO1= 2 

TOO= 


BI 1 
BIT9=BITO9 
BIT8=B1T08 


NOU SW O 


SEQUENCE 
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BASIC DEFINITIONS 


000250 
177740 


177752 
177760 
177762 


177764 
177766 


177572 
177574 


177576 
172516 


177600 


177614 
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BIT7=BIT07 


BITO=B1TO0 
; *BASIC "*CPU'" TRAP VECTOR ADDRESSES 


LKV 
CACHVEC=114 
PIRQVEC= “Sip 


: MEMORY 
6 REGISTER ‘DEFINITIONS 


SEQUENCE 


7: TIME OUT AND OTHER ERRORS 

Perr AND ILLEGAL INSTRUCTIONS 
; TRACE TRAP 

: [BREAKPOINT TRAP (BPT) 

;¢ INPUT/OUTPUT TRAP (IOT) **SCOPE** 
;POWER FAIL 

:: EMULATOR TRAP (EMT) **ERROR** 

AP*' TRAP 


“TTY KEYBOARD VECTOR 
SUTTY PRINTER VECTOR 
::LINE CLOCK (KW11-L) VECTER 
et ERROR INTERRUPT VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 
Y MANAGEMENT VECTOR 


R 16 BITS OF ADDRESS THAT CAUSED ERROR 
:UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
CACHE ERROR REGISTER 
: sMEMORY CONTROL REGISTER 
; sMEMORY Y MAINTENENCE REGISTER 
HIT MISS REGISTER ‘‘I'’ IMPLIES HIT IN CACHE 


177752 
CPU_REGISTER DEFINITIONS 
177760 


:MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
ITO GET TO THE LAST 32 WORDS OF MEMORY 
;:;HIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
;; CURRENTLY ALL ZERO 
;:SYSTEM ID REGISTER 
23 CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
— TRAP TO ERRVEC (000004) 


MEMORY MANAGEMENT DEF INITIONS 
a aa STATUS REGISTER ADDRESSES 


MMVEC= 250 
-SBTTL CACHE 
LOADRS = 17774 
HIADRS = 177742 
MEMERR = 177744 
CONTRL = 177746 
MAINT = 177750 
HITMIS = 75 
. SBTTL 
SIZELO = 
SIZEHI = 177762 
SYSTID = 177764 
CPUERR = 177766 
. SBITL 
MMRO= 57 
MMRI1= 177574 
MMR2= 177576 
MMR35= 172516 
SRO=MMRO 
SR1=MMR1 
SR2=MMR2 
SR3=MMR 5 


;*USER ‘'I'' PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


UIPDR1= 


UIPDR2= 
UIPDR3= 


UIPDR4= 
UIPDR5= 
UIPDR6= 


177614 


a eo ee ee ee a er ee ee 
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177616 
177620 


177636 


177640 
177642 


172256 
172260 


UIPDR7= 
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177616 


7 *USER ‘'D‘' PAGE DESCRIPTOR REGISTORS 
177620 


UDPDRO= 
UDPDR1= 


6 
3; *SUPERVISOR ‘I’ PAGE DESCRIPTOR REGISTERS 


SIPDRO= 172200 


; *SUPER 


SDPDRO= 17 


SDPDR1= 
SDPDR2= 
SDPDR3= 
SDPDR4= 
SDPDR5= 
SDPDR6= 


SDPDR7= 172236 


;*SUPERVISOR ‘'I'' PAGE ADDRESS REGISTERS 
SI 72240 


256 
;*SUPERVISOR ‘'D’* PAGE ADDRESS REGISTERS 


SDPARO= 


172260 


172216 
Vises a PAGE DESCRIPTOR REGISTERS 


SEQUENCE 
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SDPAR1= 172262 
SDPAR2= 172264 
SDPAR3= 172266 
SDPAR4= 172270 
SDPAR5= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
:*KERNEL ‘'I'' PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
> *KERNEL ‘D‘' PAGE DESCRIPTOR REGISTERS 

KDPDRO= 172320 
KDPDR1= 172322 

= 172324 


KDPDR7= 172336 


KIPART= 172356 

KERNEL ‘'D*' PAGE ADDRESS REGISTERS 
KDPARO 172360 
1= 172362 


376 
.SBTTL UNIBUS MAP REGISTER DEFINITIONS 
;*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXxX" 
eerhe’s Th 6 ig OF THE MAP REGISTERS ARE LABELED *MAPHXX" 


MAP = 17020 

MAPHOO = 170202 
MAPLO1 = 170204 
MAPHO1 = 170206 
MAPLO2 = 170210 
MAPHO2 = 170212 
MAPLO3 = 170214 
MAPHO3S = 170216 
MAPLO4 = 170220 
MAPHO4 = 170222 
MAPLOS = 170224 


SEQUENCE 


10 
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AIL 
INIBUS MAP REGISTER DEFINITIONS 


eee eee 


170226 
17 
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MAPHOS = 170226 
MAPLO6 = 170230 
MAPHO6 = 170232 
MAPLO7 = 170234 
MAPHO7 = 170236 
MAPL10 = 170240 
MAPH10 = 170242 
MAPL11 = 170244 
MAPH11 = 170246 
MAPL12 = 170250 
MAPH12 = 170252 
MAPL13 = 170254 
MAPH13 = 170256 
MAPL14 = 170260 
MAPH14 = 170262 
MAPL15 = 170264 
MAPH15 = 170266 
MAPL16 = 170270 
MAPH16 = 170272 
MAPL17 = 170274 
MAPH17 = 170276 
MAPL20 = 170300 
MAPH20 = 170302 
MAPL21 = 170304 
MAPH21 = 170306 
MAPL22 = 170310 
MAPH22 = 170312 
MAPL23 = 170314 
MAPH23 = 170316 
MAPL24 = 170320 
MAPH24 = 170320 
MAPL25 = 170324 
MAPH25 = 170326 
MAPL26 = 170330 
MAPH26 = 170332 
MAPL27 = 170334 
MAPH27 = 170336 
MAPL30 = 170340 
MAPH30 = 170342 
MAPL31 = 170344 
MAPH31 = 170346 
MAPL32 = 170350 
MAPH32 = 170352 
MAPL33 = 170354 
MAPH3S3 = 170356 
MAPL34 = 170360 
MAPH34 = 170362 
MAPL35 = 170364 
MAPH35 = 170366 
MAPL36 = 170370 
MAPH36 = 170372 
MAPL37 = 170374 
MAPH37 = 170376 
MAPLO=MAPL 00 

MAPHO=MAPHOO 

MAPL 1=MAPL01 


MAPH1 =MAPHO 1 


ee eee ee ee 


SEQUENCE 
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NIBUS MAP REGISTER DEFINITIONS 
170210 MAPL2=MAPL 02 
170212 MAPH2=MAPHO2 
170214 MAPL 3=MAPL 03 
170216 3=MAPHO 
170220 MAPL 4=MAPL 04 
170222 MAPH4=MAPHO4 
17024 MAPL5=MAPLO05 
17026 MAPHS=MAPHO5 
170230 MAPL6=MAPL 06 
170232 MAPH6=MAPHO6 
170234 MAPL 7=MAPLO7 
170236 MAPH7=MAPHO7 
281 .SBTTL TRAP CATCHER 
000000 =0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *’ 22, HALT"’ 
**SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
sees : *LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: YOR 0 : SOFTWARE DISPLAY REGISTER 
600176 000000 SWREG: .WORD 0 SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
000200 000137 001424 JMP QABEGIN :;JUMP TO STARTING ADDRESS OF PROGRAM 
282 500 STACK1=500 
283 000204 $SAVPC= 
284 000030 .=30 
285 000030 006550 $ERROR 
286 000032 000340 0 
287 000204 .=$SAVPC 
289 -SBTTL _ACT11 HOOKS 
SEERA EERE EEEA EERE EREREAEERE EERE EREEE RARER ES 
“HOOKS REQUIRED BY ACT11 
000204 $SVPC=. :SAVE PC 
0004 .=46 
000046 003724 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 000000 “WORD 0 ;i2)SET LOC. 332 TO ZERO 
000204 “=$SVPC St RESTORE P 
290 001100 .=1100 
291 -SBTTL APT PARAMETER BLOCK 
RARER EEREREEEEEKEREKKERKEEEREREKEREREREKE EERE REE ERE EER 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FAKE REE EEEREREREREREREEKKKEEEEKEEEEKEAEEEERERERR EERE REEEE EE 
001100 .$X=. | :; SAVE CURRENT LOCATION 
000024 .=24  3;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 00 FOR APT START UP 
4 =44  ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 $APTHDR ::POINT TO APT HEADER BLOCK 
001100 =.$X  ::RESET LOCATION COUNTER 
eT Terr r rrr rr erT Tre TT rTrerrrTT TTT TTT TTT TT TTT Tt ttt tt htt 
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
“INTERFACE SPEC. 
001100 $APTHD: 
001100 000000 $HIBTS: .WORD 0 :TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001102 001114 $MBADR: .WORD  $MAIL :ZADDRESS OF APT MAILBOX (BITS 0-15) 
001104 000005 $TSTM: .WORD 5 RUN TIM OF LONGEST TEST 
001106 000005 $PASTM: .WORD 5 “TRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001110 000000 SUNITM: .WORD 0 “TADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


~- -—— 
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APT PARAMETER BLOCK 
001112 
2 


SESSSRRSRSSESE 
Sigoereaseesere 


=) 
oO 
Own 
Soo 


SN™N 
oRRE 


merry 
OROPRRS 


rw 


a ee ee ee ee ee ee 
Mo LON 


SSS88888SSSSSSsssss 
PUMPER Ponoenonononoens 


wiv 


000016 


000 
000 


000000 


000001 
000001 


000001 


000206 
00000! 
000100 
000004 
000002 
177650 
177656 
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000236 
000226 


000220 


177720 
177711 


000004 


. WORD 


SEQUENCE 


SETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 
.SBTTL APT MAILBOX-ETABLE 


SS AAAAAAAAAAAAEAAARAAEAAAAAERAERARERARARRARERRARRAERAAKERERAA AREAS 


AMADR1 


MAILBOX 
| IMESSACE TYPE CODE 
+s FATAL ERROR NUMBER 


;;DEVICE COUNT 

::1/0 UNIT NUMBER 

: ;MESSAGE ADDRESS 

ET oo LENGTH 
i toc 


BITS 15-11=CPU_TYPE 
11/04=01,11/05=02,11/20=03,11/40=04 ,11/45=05 
11/70=06,PDQ=07 ,Q=10 

BIT 10=REAL TIME CLOCK 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY MANAGEMENT 

: HIGH ADDRESS, oar” BYTE 


(HIGH BYTE) 


; 
300 NSEC BIPOLAR= 002 
500 NSEC MOS=003 
;:HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 


- SBTTL APT COMMUNICATIONS ROUTINE 


KKK KEKE KEKE EKEKEEEEKKKEKEEKEKEKKEKEKEKKEKEEKEKEKEKKEKEKEKEREE 


MAS 

SMSGTY: .WORD 

SFATAL: .WORD 

STESTN: .WORD 

SPASS . WORD 

SDEVCT: .WORD 

IT: .WORD 

$MSGAD: .WORD 

$MSGLG: .WORD 

SETABLE 

ENV: -BYTE 

SENVM: .BYTE 

SSWREG: .WORD 

S$USWR: .WORD 

$CPUOP: .WORD 

** 

* 

;* 

2a 

;* 

;* 

SMAMS1: .BYTE 

$MTYP1: .BYTE 

“* 

+ 

3% 

;* 

SMADR1: .WORD 

** 

SETEND: 

-MEXIT 

$ATY1 MOVB 

$ATY3: MOVB 
BR 

SATY4: MOVB 

SATYC 
MOV 
MOV 
TSTB 
BEQ 
CMPB 
BNE 
BITB 
BEQ 
MOV ~ 
ADD 

1$: TST 
BNE 
MOV 

2$: TSTB 
BNE 


#1 ,$FFLG ;;TQ REPORT FATAL ERROR 
1 « SMFLG ::TO TYPE A MESSAGE 
#1, $FFLG ::TO ONLY REPORT FATAL ERROR 
RO,-(SP) ¢ ¢PUSH RO ON STACK 
R1,~(SP) ;PUSH R1 ON STACK 
$MFLG 3 SHOULD TYPE A MESSAGE? 
5$ NOT: BR 
 alectaieaed : ZOPERATING UNDER APT? 
#APTSPOOL , SENVM ; s SHOULD SPOOL MESSAGES? 
$ ;IF NOT: BR 
a4 (SP) ,RO > GET MESSAGE ADDR. 
#2,4(SP) ;BUMP RETURN ADDR 
$MSGTYPE 73 SEE IF DONE W/ LAST XMISSION? 
1$ 3IF NOT: WAIT 
RO, $MSGAD ::PUT ADDR IN MAILBOX 
_ 3:FIND END OF MESSAGE 
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T COMMUNICATIONS ROUTINE 


| 

| 

| 001 

| 001270 
| 

| 

| 


294 
295 001416 
296 001420 
297 


298 
299 001422 


00 
001370 
001374 
001400 


177646 
177642 
000004 


000002 
176456 
004566 
000062 


177574 
177546 
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SUB SMSGAD ,RO 
ASR RO 
MOV RO, SMSGLGT 
177616 MOV #4, SMSGTYPE 
BR 5$ . 
000016 3$: MOV a4(SP).4$ 
000004 ADD #2,4(SP) 
MOV 177776,=-(SP) 
JSR PC, STYPE 
4$: . WORD 0 
5$: 
10$: TSTB SFFLG 
BE 12$ 
TST SENV 
BEQ 12$ 
11$ TST SMSGTYPE 
BNE 1$ 
177540 MOV a4 (SP), SFATAL 
000004 ADD #2.4(SP) 
INC SMSGT YPE 
12$: CLRB SFFLG 
CLRB SLFLG 
CLRB SMF L 
V (SP)+,R1 
MOV (SP)+,RO 
RTS PC 
SMFLG: .BYTE 


$LFLG: .BYTE O 
SFFLG: y fs 0 


APTSIZE= 300. 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


PFAIL: .WORD 0 
XYZ: DO 
SWR=177570 


DISPLAY=SWR 
LRTI: RT] 


;;SUB START OF MESSAGE 


7: TELL APT TO TAKE MSG. 


:;PUT MSG ADDR IN JSR LINKAGE 
RE TURN ADDRESS 

PUSH 199776 ON STACK 

>=CALL TYPE MACRO 


re; REPORT FATAL ERROR? 
stir NOT: BR 
: : RUNNING UNDER APT? 


;I1F NOT: BR 
FINISHED LAST ME SSAGE ? 
F- NOT: WAIT 
32:GET ERROR # 


;BUMP RETURN ADDR. 
73 TELL aby TO TAKE ERROR 


«pop STACK INTO RO 
; sRETURN 

7zMESSG. FLAG 

3zL0G FLAG 

::FATAL FLAG 


SEQUENCE 


9, 
i 


 CKKACCO 11/64 POWER FAIL 


APT COMMUNICATIONS ROUTINE 


i 


—_ 


500 001424 


00 
301 00 
302 00 
303 00 
304 
305 
306 


1566 
1574 
1602 


307 
308 by BE 
30 2 


MN St 
COONS wry 
Sssssss 
oO 


MIMEXSKG KS ee ees 
awiAS LAS, 
Pwn- 


328 00171 
329 00171 


012706 


012737 
wie cae 


00506 
016767 


013746 


00 
012767 
012777 


012737 
012737 


005000 


001100 
006476 


177777 


001524 
000176 


001136 
004360 


004260 
000001 


000200 
003100 
000037 
003600 
000200 


002712 


177740 
001710 


000340 
177510 
000006 
176064 


C 
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000034 
0069036 


002206 


000004 
176072 
176064 
176056 


176036 
176030 
177357 
176002 
002760 


000114 
004262 


003170 
003604 


BEGIN: 
. SBTTL 


SE QUE NCE 


sae ALES THE COMMON TAGS 
MOV 


ASTACK, SP 7;SETUP THE STACK POINTER 


ais A FEW VECTORS 


:zSIZE FOR A HARDWARE SWITCH REGISTER. 


>z:EQUAL TO ‘2 


64$: 
65$: 
66$: 


67$: 


A#STRAP ,@ATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
#340, aa TRAPVEC +2: LEVEL 7 
$PASS ;CLEAR THE PASS COUNT 
SENDCT,SEOPCT > SETUP Paar onan an COUNTER 
IF NOT FOUND OR IT IS 
-1'", SETUP FOR A ae SWITCH REGISTER. 
@AERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#64$,, AAERRVEC ;SET UP ERROR VECTOR 


#DSWR , SWR “SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
#-1,aSWR +e TRY TO REFERENCE HARDWARE SWR 

66S ; sBRANCH IF NO TIMEOUT TRAP OCCURRED 


THE HARDWARE SWR IS NOT = -1 


65$ : BRANCH IF NO TIMEOUT 

#65$, (SP) ;SET UP FOR TRAP RETURN 
ASWREG , SWR ese TO SOFTWARE SWR 
#ADISPREG,DISPLAY 

(SP) +, @#ERRVEC : sRESTORE ERROR VECTOR 

SPASS ;CLEAR PASS COUNT 
MAPTSIZE,SENVM :: TEST USER SIZE UNDER APT 
67$ YES,USE NON-APT SWITCH 
ASSWREG, SWR ::NO,USE APT SWITCH REGISTER 
#POWDWN UP POWER DOWN VECTOR 


WN,@DVEC ;SET 
#PARERR,@ACACHVEC ;SET UP PARITY ERROR VECTOR 
#1, A#PARFLG : INITIALIZE THE MULTI PARITY ERROR INDICATOR 


a THE SIZE OF MEMORY IN SYSTEM USING SYSMAC SIZE 


RO :MAKE MSB'S = 0 

#B1T07,$KT11 >TURN ON MEMORY MANAGMENT 

PC, $SIZE =GET PAR VALUE FOR LAST WORD 
#37,$LSTBK “FINE LAST ADDRESS OF MEMORY BANK 
$LSTBK,R1 “CHECK LAST BANK WITH R1 

R1 >SIZE MEMORY 

#200,RO “FORM THE BLOCK NUMBER OF 

RO : THE LAST ADDRESS AND 
RO,LIMIT “SAVE IT. 

RO “MULT BY 4 

RO 

RO 


;THIS ROUTINE aa A PFAIL rn SE TUE ,TO AUTOMATIC POWER FAIL THE SYSTEM 


3$: 


MOV 77740,PFAIL ETUP PFAIL ADDRESS 

MOV 3$,4 ET PC 

MOV #340,6 “SET PSW 

TST aPFAIL “READ PFAIL 

BR 4$ “POWER FAIL HARDWARE IS IN SYSTEM 
MOV #64 “TRAP RETURN 

CL 


ee ee nee ee ae ere ae em we eee oe oe -e 


— ——ee oe ae ee ee — 


| D2 
— CKKACCO 11/46 POWER FAIL MACRO M1113 O6-APR-81 14:07 PAGE 8-1 SEQUENCE 16 
INITIALIZE THE COMMON TAGS 


330 001722 005726 TST (SP) + SETUP STACK PC 

| 331 001724 005726 TST (SP) + SETUP STACK PSW 

| 332 001726 012767 001420 177462 MOV #XYZ,PFAIL SET UP DUMMY ADDRESS 
| 333 001734 012767 000000 176042 4%: MOV #6,4 sRESTORE TRAP VEC 

334 001742 005067 176040 CLR 6 | 





E 
CKKACCO 11/44 POWER FAIL MACRO M1113 O6-APR-81 14:07 PAGE 9 SEQUENCE 


INITIALIZE THE COMMON TAGS 


-—— — 


ce 


33) > IDENTIFY THE PROGRAM AND TYPE INSTRUCTIONS 
337 001746 023767 000042 001750 CMP ante. SENDAD 
338 001754 001421 BEQ PRET 
339 001756 104401 007737 TYPE ata TE : TYPE THE TITLE 
340 001762 104401 007774 TYPE “BOOT 
341 001766 010046 V RO,-(SP) ; SAVE RO FOR TYPEOUT 
001770 104405 TYPDS :GO TYPE=-DECIMAL ASCII WITH SIGN 
342 001772 104401 010151 TYPE , SUPMSG -TYPE THE STARTUP MESSAGE 
343 001776 026727 177414 001420 CMP PFAIL ,AXYZ :I1S AUTOMATIC POWER FAIL 
344 002004 001403 BEQ S$ “BRANCH IF NO 
345 002 104401 010371 TYPE »HDWPFL : TYPE HARDWARE POWER FAILURE MESSAGE 
346 002012 000402 RR PRETST “BRANCH OVER MANUAL MESSAGE 
347 002014 104401 010311 S$: TYPE /USRPFL : TYPE USER POWER FAIL MESSAGE 
348 002020 012767 000001 177072 PRETST: MOV #1,$TESTN 
349 002026 104401 006473 TYPE -S$CRLF TYPE A <CRLF> 
350 :THIS ROUTINE IS FOR CHECK ING os TIMING USING SOB OUT OF SIPARS 
351 :BRANCH . OUT OF SIPARO=1. 
352 SOB HAS ONE MORE MICRO STEP THROUGH EQUAL 1.4US 
353 . “1024 MUL BY 1.4US EQUAL 1.43MS MIN TIME CHECKED FOR ILLUP,ILLDWN 
354 002052 004767 002634 JSR PC, SETPAR :GO0 PUT TIME FACTOR SUBROUTINE IN SIPARO-SIPAR3 


ee re eee 


— — = 


2 
CKKACCO 11/44 POWER FAIL MACRO M1113 O6-APR-81 14:07 PAGE 10 
TEST # 1 = SIMPLE DOWN/UP TEST (KERNEL) 


355 .SBITL TEST 4 1 — SIMPLE DOWN/UP TEST (KERNEL) 
SS RRARAAAAAAAARERARAREAAAAAAAAARAAAARAAAAKAERERAERRA KARATE AARA AES 
:*TEST 1 SIMPLE DOWN/UP TEST (KERNEL) 
oSAAAAAAAAAAAAAAAAAKARAERAAAAAAAAAAARARAAAAAAAA AAs Aaeaeenaaaeaees 
002036 1811: 
002036 104401 002044 TYPE ,65$ sz TYPE ASCIZ STRING 
002042 000402 BR 64$ :;GET OVER THE ASCIZ 
73658: .ASCIZ *1 * 
002050 64$: 
00205 104401 0603740 TYPE , SENULL 
356 002054 005037 177776 CLR @APS :SET KERNEL MODE 
7 002 012703 00207 : MOV #2$,R3 + SET POWER UP RETURN 
358 002 012777 000001 177324 MOV #1,aPFAIL :SET UP TO START POWER FAIL 
359 002072 000001 WAIT ;WAIT FOR POWER FAIL 
360 002074 010600 2$: MOV SP,RO sGET SP 
361 002076 022700 001074 CMP ASTACK=-4,RO + CHECK SP 
362 002102 001414 BEC $ :SKIP IF OK 
363 0021 012767 001074 005556 MOV #1074,EXP.SP1 
002112 010067 005554 MOV RO,REC.SP1 
365 €02116 012706 0C0500 MOV #STACKI, SP -SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 
002122 104000 ERROR 
: ERROR 
366 :SP NOT STACK~-4 
367 002124 007670 EXP.SP1 sPRINT EXPECTED STACK POINTER 
368 002126 007672 REC.SP1 :PRINT RECEIVED STACK POINTER 
369 002130 000000 0 
370 002132 000000 HAL T 
371 002134 012706 001100 3$: MOV H#STACK,SP sRESET SP 
372 002140 013700 001074 MOV @ASTACK=-4,R0 :GET RETURN ADDRESS 
373 002144 022700 002074 CMP #2$,R0 ;CHECK ADDRESS 
374 002150 001414 BEQ 4$ :SKIP IF OK 
375 002152 012767 002074 005504 MOV #2$,EXP.ADD 
376 002160 010067 005502 MOV RO,REC.ADD 
377 002164 012706 900500 MOV #STACK1,SP >;SETUP RESERVED STACF POINTER 
:FOR ERROR PRINTOUT 
002170 104000 ERROR 
: ERROR 
378 :ADDRESS ON STACK IS WRONG 
$79 002172 007664 EXP.ADD :PRINT EXPECTED ADDRESS 
380 002174 007666 REC.ADD :PRINT RECEIVED ADDRESS 
381 002176 0 
382 0022 00 HALT 
383 002202 013700 001076 4$: MOV aA STACK=-2,R0 ;GET OLD PS 
384 002206 022700 000000 CMP 0,RO sCHECK OLD PS 
385 002212 001414 BEQ 5$ :SKIP IF OK 
386 002214 012767 000000 005452 MOV #0,EXP.PSW 
387 002222 0610067 005450 MOV RO,REC.PSW 
002226 012706 000500 MOV #STACK1,SP -SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 
002232 104000 ERROR 


mee a ee ee ee 
- ewes = ee 


: ERROR 


— <r e -e - _ 
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007674 
007676 
000000 


006000 


032737 
001271 


040000 


G 2 
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177570 


EXP.PSW 
oo 


HAL T 


BIT #SW14 ,d4SWR 
BNE TST] 


5$: 


:OLD PS 1S WRONG 
“PRINT EXPECTED PS 
“PRINT RECEIVED PS 


;LOOP ON TEST? 
;LOOP TO TST1 


“TEST ROUTINE TO CHECK RE-START CAPABILITY 


USING THE BR. INSTRUCTION 


sOPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 


ee re rr ee ee ee 


H 2 
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TEST # 2 = POWER FAIL WITH BR. INSTRUCTION 
| 400 .SBITL TEST # 2 -— POWER FAIL WITH BR. INSTRUCTION 
S SSRAAARAAAAARAERAAAAAAAARAEAAAAAAAAARAAAAARAAAAAAeAAAeKeaaaaaeAaKes 
:*TEST 2 POWER FAIL WITH BR. INSTRUCTION 
. “CRA EREARAAKAEEKEAERAEAERAEAEAE AAR ARARAARAREAARAAERARARAKKER ARERR RAE 
002254 TST2: 
002254 104401 002262 TYPE ,65$ ,;z TYPE ASCIZ STRING 
: 002269 000402 BR 64$ :>:GET OVER THE ASCIZ 
| >:653: .ASCIZ *2 * 
| 0022 64$: 
0022 104401 003740 TYPE , SENULL 
401 002272 005267 176622 INC STESTN 
402 002276 127 001100 MOV ASTACK,SP >SET UP STACK 
| 403 002302 012767 000357 175466 MOV #357,PS :SET UP CONDITION CODES 
404 002310 012703 002324 MOV #2$,R3 >SET POWER UP RETURN 
405 002314 012777 000001 177074 MOV #1,aPFAIL SET UP TO START POWER FAIL 
4 0023 000777 1$: BR . = WAIT FOR POWER FAIL 
407 002324 010600 2$: MOV SP,RO GET SP 
408 002326 012706 001100 MOV ASTACK,SP sSET STACK 
409 002332 022700 001074 CMP #STACK~-4,RO0 s;CHECK STACK POINTER 
410 002336 001414 BEQ 3$ sSKIP IF OK 
411 002 012767 001074 005322 MOV #1074,EXP.SP1 
412 002346 010067 005320 MOV RO,REC.SP1 
413 002352 012706 000500 MOV #STACK1,SP : SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 
002356 104000 ERROR 
: ERROR 
414 :;STACK POINTER 
415 002360 007670 EXP.SP1 sPRINT RECEIVED SP 
416 002362 007672 REC.SP1 “PRINT EXPECTED SP 
417 002364 000000 0 
418 002366 000 HAL T 
419 002370 013700 001076 3$: MOV @ASTACK-2,RO0 :GET OLD PS 
420 002374 022700 000341 CMP #341,R0 : CHECK OLD PS 
421 002400 001414 BEQ 4$ :SKIP IF OK 
422 002402 012767 000341 005264 MOV #341,EXP.PSW 
423 002410 0067 005262 MOV RO,REC.PSW 
424 002414 012706 000500 MOV ASTACK1,SP :SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 
002420 104000 ERROR 
ERROR 
425 :OLD PS IS WRONG 
426 002422 007674 EXP.PSW :PRINT EXPECTED OLD PS 
427 002424 007676 REC.PSW :PRINT RECEIVED OLD PS 
428 002426 000000 0 
429 002430 ! HALT 
430 002432 ‘5700 001074 4$: MOV QA STACK-4,R0 :GET RETURN ADDRESS 
431 002436 022700 002322 CMP #1$,R0 
432 002442 001414 BEQ 5% :SKIP IF OK 
433 002444 012767 002322 005212 MOV #1$,EXP.ADD 
434 002452 0067 005210 MOV RO,REC.ADD 
435 002456 012706 000500 MOV A#STACK1,SP : SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 
002462 104000 ERROR 


436 

437 002464 

438 002466 

439 002470 

440 002472 

441 9026 7% 
00247 


009503 


Se ee 
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007664 
007666 
000000 
000000 


032737 
001264 


040000 


—_— 


. @ 
MACRO M1113 O6-APR=-81 14:07 PAGE 11-1 SEQUENCE 


INSTRUCT JON 
: ERROR 
| “ADDRESS ON STACK IS WRONG 
EXP. ADD “PRINT EXPECTED ADDRESS 
REC .ADD “PRINT RECEIVE ADDRESS 
as HALT 
177670 BIT #Sw14,aaSwR :LOOP ON TEST? 
BNE TST2 “LOOP TO TST2 





sTEST ROUTINE TO CHECK RESTART _—e 
[USING THE EMULATOR TRAP FOR A WAIT 
; OPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 


ee ere ee ee em 


21 


) CRRACEO 11/454 POWER FAIL 


MACRO 


TEST # 3 = POWER FAIL WITH EMT TRAP 


447 


002504 
002504 
| 002510 
002516 


448 002828 


465 002626 
466 002632 


002636 


473 002654 
474 002660 
475 002662 
476 002670 
477 002674 


002700 


484 002716 


104401 
000402 


012706 
104000 


010067 
012706 
104000 


007664 
007666 
000000 


000000 
013700 
022700 


002512 


003740 


000005 
000001 


001100 
006550 
001074 


001070 
001070 


005040 
000500 


001070 
001422 


001422 
2 


001072 
000005 


175260 
175254 
176632 


175224 


005042 


004774 


J 2 
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. SBTTL 


1$13: 


bis: 


3$: 
2$: 


4$: 


S$: 


SE QUE NCE 


TEST # 3 — POWER FAIL WITH EMT TRAP 


TORRE RESABSBASBASBSAAASLALASALARSA SARE RRR RRA RRRR RRR RRR RR RRRR RRR RR RRR SS SOE 


POWER FAIL WITH EMT TRAP 


SPORES SHASA HS SSA SA ASH SSS SSs eee as aes A eee SSeSsS Sees seeserseres 


7; TYPE ASCIZ STRING 
:;GET OVER THE ASCIZ 


; SET KERNEL MODE 
SET UP STACK 
:SET POWER UP RETURN 
:SET UP RETURN FROM EMT TRAP VECTOR 
;SET PSW ON POWER FAIL 
;SET UP TO START POWER FAIL 
;WAIT FOR POWER FAIL 


:GET SP 


zRESET EMT VECTOR 
;WAS STACK PUSHED ONLY TWICE 


;WAS STACK PUSHED 4 TIMES 


:SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 


“WAS STACK PUSHED 4 TIMES 
“PRINT EXPECTED STACK POINTER 
“PRINT RECEIVED STACK POINTER 


:DOES STACK CONTAIN CORRECT INFO 


;SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 


; ERROR 


;1S STACK PUSHED MORE THAN 2 OR LESS THAN 4 


TYPE ,65$ 

BR 64$ 

-ASCIZ *3 * 
TYPE , SENULL 

INC $STESTN 

CLR a4PS 

MOV ASTACK ,SP 
MOV #2$,R 

MOV ALRTI ,EMTVEC 
MOV #5 ,EMTVEC+2 
MOV #1,@PFAIL 
EMT 

BR 3$ 

MOV SP ,RO 

MOV ASTACK,SP 
MOV ASERROR, 30 
CMP ASTACK~4,RO 
BEQ 6$ 

CMP ASTACK-10,R0 
BEQ 4$ 

MOV #1070,EXP.SP1 
MOV RO,REC.SP1 
MOV ASTACK1,SP 
ERROR 

EXP.SP1 

REC.SP1 

0 

HAL T 

MOV @ASTACK-10,R0 
CMP ALRTI,RO 
BEQ 5 

MOV ALRTI,EXP.ADD 
MOV RO.REC. ADD 
MOV #STACK1,SP 
ERROR 

EXP .ADD 

oe, 

HAL T 

MOV @ASTACK-6,RO 
CMP #5,R0 


;sPRINT EXPECTED ADDRESS 
:PRINT RECEIVED ADDRESS 


;DOES STACK CONTAIN CORRECT INFO 


meee mee ee a ee eee 


> EE - 


ge 
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TEST # 3 = POWER FAIL WITH EMT TRAP 


485 002722 001414 BEQ 6$ 
486 002724 012767 G00005S 004742 MOV #5,EXP.PSwW 
487 002732 000000 007676 RO,REC.PSW 
488 002736 012706 000500 MOV MSTACK1,SP ;SETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 
002742 104000 FRROR 
: ERROR 
489 :STACK CONTIAN WRONG PSW 
490 002744 007674 EXP .PSW :PRINT EXPECTED PSw 
491 002746 007676 REC.PSW ;PRINT RECEIVED PSw 
492 002750 000000 0 
493 002752 000000 HAL T 
494 002754 6$: 
0027 032737 040000 177570 BIT #SW14 ,a4SWR :LOOP ON TEST? 
002762 001250 BNE TST3 sLOOP TO TST3 


2. Sane or eee 
Ce ee eee TT SV mm - _ 


495 


ee Re 
. 


502 
503 003042 
603046 


504 003050 
505 003052 
506 003060 

003066 


—_ 
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104401 
000402 


012706 
104000 


000006 
040000 


———_— - 
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RESS 


000004 
176364 


000004 
177570 


——— wre ee eee 5 ee -_——— << += 


SEQUENCE 


TEST # 4 = POWER FAIL WITH ODD ADDRESS 


SS EREKEAAEAAARAAERAARAERAAAEAARAAAAAAERAAAAARERAKAAERARAARAA AAAS 


POWER FAIL WITH ODD ADDRESS 


TOPE SESSASZ£L£2 A222 SS RERSSARSARS ARR ARARR SARS RA RARER RRR RRS R RSE SOD, 


. SBTTL 

* «TEST 4 

1ST4: 
TYPE ,05$ 
BR 54$ 

7::65$: .ASCIZ *4 * 

64$: 
TYPE , SENUL 
INC STESTN 
CLR @APS 
MOV #3$,QMERRVEC 
MOV #1$,R3 
MOV #1,@PFAIL 

3$: MOV ASTACK,SP 
TST a3 
MOV #STACK1,SP 
ERROR 
HALT 

1$: MOV #6, @A4ERRVEC 
BIT #SW14, a4 SwR 
BNE TST4 


zz TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


;SET KERNEL MODE 


;SET TRAP VECTOR 

;SET RETURN ADDRESS FOR POWER FAIL 
;SET UP TO START POWER FAIL 

;RESET STACK 


;CAUSE ODD ADDRESS TRAP 


;SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 


ees ADDRESS TRAP FAILED TO OCCUR 


ESET 
[LOOP ON TEST? 
;LOOP TO TST4 


amen re ee ee ee eC ~_——- — 


24 
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TEST # 5 = POWER FAIL WITH TIME OUT (KERNEL) 


See 


507 \SBTTL TEST # 5 - POWER FAIL WITH TIME OUT (KERNEL) 
SS RAAAAAAAEAEAERERAAEAAAERAEEAEAAAAAAARAAARAEAAAEAARERERRAARAR AAS 
TEST 5 POWER FAIL WITH TIME OUT (KERNEL) 
PRR RESAAALALASALARSASSARASAASASAAALAL ALARA SERA SERA ARR RADARS SSDS DO 
003070 1815: 
003070 104401 003076 TYPE ,65$ :i TYPE ASCIZ STRING 
003074 000402 BR 64$ SIGET OVER THE ASCIZ 
::65$: .ASCIZ *5 * 
003102 648: 
003102 104401 003740 TYPE , SENULi 
508 003106 005267 176006 INC TEST 
509 003112 012737 003132 000004 MOV #38 AMERRVEC  :SET TRAP VECTOR 
510 003120 012703 003156 MOV #1$.R3 “SET UP RETURN ADDRESS FOR POWER FAIL 
511 003124 012777 000001 176264 MOV #1, aPFAIL :SET UP TO START POWER FAIL 
512 003132 012706 001100 3$: MOV #STACK, SP :SET STACK 
513 003136 005037 177776 CLR aAPS :SET KERNEL MODE 
514 003142 010037 160000 MOV RO.a4#160000 “CAUSE A TIMEOUT 
515 003146 912706 000500 MOV #STACK1,SP ;SETUP RESERVED STACK POINTER 
“FOR ERROR PRINTOUT 
003152 104000 ERROR 
ERROR 
516 003154 00 HALT :TIME OUT FAILED TO OCCUR 
517 003156 012706 001100 1$: MOV #STACK, SP :SET STACK 
518 003162 012737 000006 000004 MOV #6 , AAERRVEC RESET 4 
519 003170 032737 040000 177570 BIT #SW14, a#SWR :LOOP ON TEST? 
003176 001334 BNE TST5 :LOOP TO TSTS 


oe ee eee ee 


— eee ee ee - ee — 
_——_- = -_——— es —_—_— rrr ee ae ae ee... 
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CRALED 11/44 POWER FAIL MACRO M1113 —_, 14:07 PAGE 15 SEQUENCE 26 


TEST # 6 = POWER FAIL IN THE STACK OVERFLOW (KERNEL) 


_—- — --.-—. ~ ee 


520 .SBITL TEST # 6 - POWER FAIL IN THE STACK OVERFLOW (KERNEL) 
ie ORO RRORAAERBABAEBABABABABRABRAAABRAAABRASAAAASLEASLAESLE RARE RE RRR ARERR RRR SASS SE S| 
**TEST 6 POWER FAIL IN THE STACK OVERFLOW (KERNEL) 
TePRRASSAAAA£2 £22 222 SSSRRRRARRERASARR RRR SRARARE SRR R RAR RRR RRR SALSA DSSS 
003200 rST6: 
003200 104401 003206 TYPE ,65$ :: TYPE ASCIZ STRING 
3204 40 BR 64$ *"GET OVER THE ASCIZ 
-:65$: .ASCIZ *6 * 
003212 é4$: 
003212 104401 003740 TYPE , SENULL 
1 003216 005267 175676 INC $TESTN 
522 003222 005037 177776 CLR a4PS SET KERNEL MODE 
523 003226 005067 001330 CLR FLAG “CLEAR THE FLAG 
524 003232 012737 003272 000004 MOV HOS, QHERRVEC  :SET SICK TRAP ADDRESS 
525 003240 012706 400 MOV #400, SP “SET STACK TO YELLOW ZONE 
526 003244 012703 003206 MOV #1$,R3 “SET RETURN ADDRESS FOR POWER FAIL 
527 003250 012777 000001 176140 MOV #1, aPFAIL -SET UP TO START POWER FAIL 
528 003256 1 WAIT :WAIT FOR THE POWER FAIL 
529 003260 012706 000500 MOV #STACK1,SP - :SETUP RESERVED STACK POINTER 
“FOR ERROR PRINTOUT 
003264 104000 ERROR 
= ERROR 
530 003266 000000 1$: HALT 
531 003270 000407 BR 4$ : SKIP SP CHECK 
57> 003272 012737 000006 000004 2%: MOV #6, AMERRVEC RESET 4 
5» 003300 012703 003310 5$: MOV #4$,R3 “SET RETURN 
534 003304 000002 RTI “GO TO THE POWER FAIL ROUTINE 
535 003306 00 HALT 
536 003310 4$: 
003310 032737 040000 177570 BIT #SW14,aMSWR :LOOP ON TEST? 
003316 001330 BNE TST6 “LOOP TO TST6 


em ee a ee 


B 3 
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TEST # 7 = POWER FAIL WITH RESETS 


237 .SBTTL TEST # 7 = POWER FAIL WITH RESETS 
ss eataeaaegeanraraeraenaeeereraraaangagaanggaengaaangakcaeranararararene 
Z*TEST 7 POWER FAIL WITH RESETS 
gS eeeeaeaeeeaaeaeaaaaeeeeegagegranaagaenaanenagaaggaeranaenacaarareree 
003320 TST7: | 
003320 104401 003326 TYPE ,65$ zz TYPE ASCIZ STRING 
003324 000402 BR 64$ 3:GET OVER THE ASCIZ 
:;65$: .ASCIZ *7 * 
003332 64$: 
003332 104401 003740 TYPE , SENULL 
538 003336 005267 175556 INC STESTN 
539 003342 005037 177776 CLR @FPS :SET KERNEL MOD 
40 003346 012703 003404 MOV #1$,R3 :SET RETURN ADDRESS 
541 003352 012706 001100 MOV #STACK,SP “RESET STACK 
542 003356 012777 000001 176032 MOV #1, aPFAIL s;SET UP TO START POWER FAIL 
543 003364 000005 3$: RESET RESETS 
544 003366 000005 RESET :TO WAIT 
545 003370 000005 RESET 3 IN 
546 003372 000774 GR 3$ ;LOOP 
547 003374 012706 000500 MOV MSTACK1,SP oon E RESERVED STACK POINTER 
>FOR ERROR PRINTOUT 
003400 104000 ERROR 
; ERROR 
548 ;RESET LOOP FAILED 
549 003402 000000 HALT 
550 003404 012706 001100 1$: MOV —s STACK, SP ;RESET STACK 
551 403410 032737 040000 177570 BIT #SW14,a4SWR -LOOP ON TEST? 
003416 001340 BNE TST7 > LOOP TO TST7 


ee ees 
ee -- -<—— 


' 


| CKKACCO 11/44 POWER FAIL 
TEST # 10 = MEMORY MANAGEMENT ABORT TEST 


cE EEE ances 


ee ee mee a ee eee ee ee eee 


552 


RRARRAAST 


562 003510 
563 003514 


003520 


564 
565 003522 


366 
567 003524 
003530 


568 
569 003534 


570 003542 
003550 


000000 


001323 


177572 


000006 
040000 
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000004 
000250 
175716 


000004 
177570 


SEQUEN LE 


-SBTTL TEST # 10 - MEMORY MANAGEMENT ABORT TEST 


'WORARBRRBRBSBBRABAAAASASLSAASASLESASARSASARR RRR RRR RAR RRRRRRRRR RRR RRR ARRAS SSS 


:*TEST 10 MEMORY MANAGEMENT ABORT TEST 
ORO REORABAEAEAAEAAEAABEBRAEAAAAAEBRABRABABERBAAABRASRABRARASASSASAEARSLSESEE SARA SA SE SS SE | 
78110: | 
TYPE 65$ :: TYPE ASCIZ STRING 
BR 4$ ::GET OVER THE ASCIZ 
>:65$: .ASCIZ *10 * 
64$: 
TYPE , SENULL 
INC $TESTN 
CLR QPS :SET KERNEL MODE 
MOV #4$,aMERRVEC SET FOR TIMEOUT 
JSR PC.MAP  ;MAP THE WORLD 
MOV #3$, OAMMVE :SEY MEMORY MANAGEMENT VECTOR 
MOV #1$.R3 LOAD PF RETURN 
MOV #1, aPFAIL :SET UP TO START POWER FAIL 
INC a4MMRO : TURN MEMORY MANAGEMENT ON 
3$: MOV #STACK,SP -ZAP STACK 
INC a#140000 ACCESS VIOLATION 
MOV #STACK1,SP :SETUP RESERVED STACK POINTER 
*FOR ERROR PRINTOUT 
ERROR 
: ERROR 
:NO VIOLATION OR TRAP TO 4 
4$: HAL T 
1$ CLR avMMRO :TURN OFF MEMORY MANAGEMENT 
MOV ASTACK, SP “MAKE A NEW STACK 
MOV #6, AAERRVEC “RESET 4 
BIT #SW14,a#SwR “LOOP ON TEST? 
BNE TST10 *LOOP TO TST10 


ee ae ae ee ee ee ae eee we es > 
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eee 


—— 


$71 


003552 
572 003554 
573 003560 
574 003564 
575 003570 
576 it EThe 


001100 
000226 
040000 
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TEST # 11 = MEMORY VOLATILITY TEST 


175572 


177570 


SEQUENCE 


-SBTTL TEST # 11 = MEMORY VOLATILITY TEST 


So REAAEAAAAAAAAERAARAAAAAAAAAARAAHAARAAAAARAAAAHAARAAHAAAKAR AANA AS 


s*TEST 11 MEMORY VOLATILITY TEST 
Ss RARAAAAERAAAAAAAAAAAAAAAAAAARAAARAAAAAAAAARARAARARAAAAREAHEREES 
TS711: NOP : 
INC STESTN 
CLR aAPS ;SET KERNEL MODE 
4$: JSR PC,LOAD = LOAD ALL MEMORY WITH 52525 
MOV #1$,R3 = POWER FAIL RETURN ADDRESS 
TYPE ~65$ =: TYPE ASCIZ STRING 
BR 64$ ::GET OVER THE ASCIZ 
::65$:  .ASCIZ *11 * 
64$: 
TYPE, SENULL 
23s: JSR PC,CHECK : CHECK FOR THE 52525 
MOV #1,a0PFAIL :SET UP TO START POWER FAIL 
BR 2$ ;LOOP FOR EVER OR POWER FAIL 
1$: MOV #STACK,SP ;ZAP THE STACK 
JSR PC, CHECK + CHECK ALL MEMORY 
BIT #SW14,a4SWR :LOOP ON TEST? 
BNE TST11 sLOOP TO TST11 


ee 


— CKKACCO 11/464 POWER FAIL 


END OF PASS ROUTINE 


584 


00 
003743 


000137 
002020 
377 
015 


175246 
100000 


003743 
175214 


003740 
000042 


012 


TC 


.. 2 
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. SBITL 


END OF PASS ROUTINE 


SEQUENCE 


TARA RBEBSBSASASBASASALALASLSASLESLASS ERASE RRR RSRRARRRR RRR RARRRRRRR RRR RRR ARSE SE S| 


:* INCREMENT THE PASS NUMBER ($PASS) 
:* INDICATE END-OF =PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
>*TYPE “END PASS #XXXXX'" a XXXXX IS A DECIMAL NUMBER) 


:*I1F THERES A sae 
>*IF THERE ISN'T 
$EOP: 


GO TO IT 
JUMP TO PRETST 


NOP 
INC $PASS : INCREMENT THE PASS NUMBER 
175240 BIC #100000,$PASS “DON'T ALLOW A NEG. NUMBER 
DEC (PC) + 3;LOOP? 
SEOPCT: .WORD 1 
BGT $DOAGN : VES 
MOV (PC)+,a(PC)+ 7 RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE , SENDMG >: TYPE ‘END PASS f°’ 
V $PASS.,-(SP) : SAVE SPASS FOR TYPEOUT 
TYPDS ::GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE » SENULL 7; TYPE A NULL CHARACTER 
$GET42: MOV af42,RO0 2 eGET MONITOR ADDRESS 
BEC $SDOAGN ;BRANCH IF NO MONITOR 
RESET >: CLEAR THE WORLD 
SENDAD: JSR PC, (RO) ::GO TO MONITOR 
NOP 7; SAVE ROOM 
NOP oa 
NOP :zACT11 
$DOAGN: 
JMP a(PC)+ : ;RETURN 
S$RINAD: .WORD ke fy 
O00 $ENULL: .BYTE -1,-1,0 sNULL CHARACTER STRING 
105 SENDMG: .ASCIZ <15><42>/END Pass’ 4/ 


SS eee 2 
es ees a 
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LOAD MEMORY WITH DATA PATTERN 


062706 
000207 


120000 
000200 
000001 


177572 
000004 
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000250 


177572 


L 


1$: 
2$: 


3$: 


.SBTTL ‘LOAD MEMORY WITH DATA PATTERN 
OAD : PC ,MAP 7 SET 


JSR : 
MOV LIMIT.R4 

MOV DATA.R 

MOV #28, E 
MOV #END ,RO 

ADD #120000, RO 
MOV #1, AAMMRO 

MOV R5,(RO)+ 

BR 1$ 

DEC Re 

BM I 3$ 

MOV #120000,R0 
ADD #200, a#k IPARS 
MOV 1, aAMMRO 

RT] 

CLR aAMMRO 

ADD #4,SP 

RTS PC 


SEQUENCE 


UP MEMORY MANAGEMENT REGISTERS 


[GET BANK COUNT 
:GET THE DATA PATTERN 
:SET UP FOR MEMORY MANAGEMENT ABORTS 

:FORM ADDRESS OF WHERE TO START WRITING THE DATA 
[USE KIPARS FOR actety tod ae 

; TURN ON MEMORY MANAGEMENT 

SWRITE THE DATA 


LAST BANK WRITTEN? 


: BRANCH IF YES 
RESET so ge hag oe REGISTER 
-SIZE NEXT 4K BANK 


CLEAR MEMORY MANAGEMENT ERRORS 
“ RETURN TO CONTINUE WRITING 
; TURN OFF MEMORY MANAGEMENT 


:CLEAN UP THE STACK 
;RETURN TO CALLER 


31 


605 
606 
607 004064 
608 004070 
609 004074 
610 004100 
611 004106 
612 004112 
613 004116 
614 004124 
615 004126 
616 004130 
617 004132 
618 004136 
619 004144 
620 004152 
621 004160 
622 004164 
625 004170 
004174 


624 004176 
625 00 


640 004256 


ee ee |e - ee 


CKKACCO 11/44 POWER FAI 
CHECK MEMORY FOR CORREC 


000207 


L 
T DATA PA 


000500 
000470 
000466 
004220 
010502 
120000 
600001 


003542 


000500 


177776 


120000 
000200 
000001 


177572 
000004 
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TTERN 


000250 


177572 


003534 


003526 
003522 


. SBTTL 
CHECK: 


2$: 


3$: 


SEGUENCE 


| seats REGISTERS 


ADDRESS OF WHERE DATA PATTERN STARTS 


;SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 


BANK 
Y MANAGEMENT ERRORS 


CHECK MEMORY FOR CORRECT DATA PATTERN 
JSR PC ,MAP :SET UP MEMORY 
MOV LIMIT ,R4 ;GET BANK COUN 
MOV DATA,R5 3GET DATA PATTERN 
MOV #2$ , dAMMVEC ;SET UP FOR MEMORY MANAGEMENT ABORTS 
MOV #END ,RO ; 
ADD #120000 ,RO ;USE KIPARS FOR ADDRESSING 
MOV #1 , dAMMRO ; TURN ON MEM. MANAGEMENT 
MOV (RQ) +,R1 READ THE DATA 
CMP R5,R1 ;1S IT GOOD? 
BEQ 1$ ;BRANCH IF YES 
MOV RO,VIR.ADD 
SUB 42,VIR.ADD 
BIC #160000, VIR.ADD 
MOV @4K IPARS ,PAR. OF F 
MOV R5,EXPDAT 
MOV R1,RECDAT 
MOV ASTACK1,SP 
ERROR 
7 ERROR 
VIR.ADD ;PRINT VIRTUAL ADDRESS 
PAR . OFF ;PRINT PDR OFFSET 
EXPDAT ;PRINT EXPECTED DATA 
ee ;PRINT RECEIVED DATA 
HAL T 
MOV R5,-2(RO) ;WRITE GOOD DATA 
BR 1$ ;GO READ THE NEXT WORD 
DEC R4 ;LAST BANK COMPARED? 
BMI 3$ ;BRANCH IF YES 
MOV 4120000,R0 sRESET ADDRESSING REGISTER 
ADD #200,04KIPARS ;SIZE NEXT 4K 
MOV #1 , dAMMRO ;CLEAR MEMOR 
RTI ; CONTINUE TESTING 
CLR aAMMRO 7 TURN OFF MEM. MANAGEMENT 
ADD #4 ,SP ;CLEAN UP THE STACK 
RTS PC SRETURN FOR CALL 


rm ee ee ee ne ee eee se 


3 
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PARITY ERROR HANDLER 


At _SBITL PARITY ERROR HANDLER 

643 004260 615427 PARERR: D* (PC) + sFIRST TIME IN? 

644 004262 0U00U1 PARFLG: . 1 

645 904264 002002 Bie 2$ :BRANCH IF YES 

6 0042 000000 1$: HA sNO=-ANOTHER PARITY ERROR OCCURRED WHILE 

647 004270 000776 Ba 1$ ; PROCESSING THE FIRST 

648 004272 032767 000077 173442 2$: BIT #77 HIADRS -MSB'S OF PARITY ERROR ADDRESS=0? 
| 004300 001006 BNE 4$ ; BRANCH IF NO 
| 650 004302 023727 177740 010502 CMP @A_OADRS,#END ;LSB'S ABOVE THE PROGRAM? 
| 651 004310 101002 BH] 4$ *BRANCH IF YES 
| 652 004312 3$: HAL T =PARITY ERROR IS IN THE PROGRAM 
| 653 004314 000776 BR 3$ 
| 654 004316 4$: HALT :DATA PARITY ERROR OCCURRED 

655 004320 005737 177744 TST @AMEMERR =DID AN ABORT OCCUR? 

656 004324 100405 BM! 5$ :BRANCH IF YES 

657 004326 2700 000002 SUB #2,RO0 :BACKUP BY ONE WORD 

658 004332 012705 000002 MOV #B1T01, R5 

659 004336 074500 XOR R5,RO ; 

C04340 010320 S$: MOV R3,(RO)+ >REWRITE THE BAD DATA 

661 004342 013737 177744 177744 MOV @AMEMERR,@AMEMERR ; CLEAR ERROR INDICATORS 

662 004350 012767 000001 177704 MOV #1.PARFLG : INITIALIZE PARITY ERROR FLAG 

663 004356 000002 RT] : CONTINUE TESTING 


[— eee rennin nee eee eeee ee ne nena eee ee naan reer cr sss 
—_—_—_—_——— =—— 
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POWER FAIL ROUTINE 


.SBITL POWER FAIL ROUTINE 


S £ FARA AAAAAERAAAAAARAAAAAATARAAARAARAAAARERKERES PeREKRKRaHERAEREERREREEE 

666 004360 012767 177777 000174 POWDWN: MOV #-1,FLAG sFIRST > i hl FLAG 
667 004366 005067 000170 CLR FLAG NOW er IT 
668 004372 012777 004522 000150 MOV *ILLUP, @UVEC ;IF TOO FAST 
669 004400 011667 000142 MOV (SP) SERRAD SET THE ERROR ADDRESS 
670 004404 022706 000400 CMP #400, SP ;YELLOW OR RED? 
671 004410 100402 BM] 1$ NO 
672 004412 012706 001100 MOV MSTACK,SP :SET EMERGENCY STACK 
673 004416 010046 1$: MOV RO,-(R6) :PuT 
674 004420 010146 MOV R1,-(R6) : THE 
675 004422 010246 MOV R2,-(R6) sREGISTERS 
676 004424 010346 MOV R3,-(R6) 3 ON 
677 004426 010446 MOV R4,-(R6) : THE 
678 004430 010546 MOV R5,-(R6) : STACK 
679 004432 010667 000122 MOV SP, SAV6 s;SAVE THE STACK POINTER 

004436 004737 172240 JSR PC, @4SIPARO ;SET TIME FACTOR 
681 004442 012777 004454 000100 MOV #POWUP, @UVEC ;RESET THE UP VECTOR 
682 004450 000000 HAL T sWAIT FOR POWER DOWN 
683 004452 000240 NOP 
685 004454 016706 000100 POWUP: MOV SAV6, SP ;RESET SP 
686 004460 012777 004534 000066 MOV #MILLDWN,@DVEC :SET TOO FAST DOWN VECTOR 
687 004466 004767 000200 JSR PC, SETPAR :GO PUT TIME FACTOR SUBROUTINE IN SIPARO-SIPARS3 
688 004472 004737 172240 JSR PC ,@4SIPARO ;SET TIME FACTOR 
689 004476 012605 MOV (R6)+,R5 : TAKE 
690 004500 012604 MOV (R6)+,R4 > THE 
691 004502 012603 MOV (R6)+,R3 sREGISTERS 
692 004504 012602 MOV (R6)+,R2 :FROM 
693 004506 012601 MOV (R6)+,R1 : THE 
694 004510 012600 MOV (R6)+,RO = STACK 
695 004512 012777 004360 000034 MOV #POWDWN , ADVE C “RESET THE DOWN VECTOR 
O38 004520 000113 JMP (R3) : JUMP INDIRECT TO R3 
698 004522 104401 ILLUP: TYPE :POWER UP BEFORE POWER DOWN COMPLETE 
699 004524 010037 UPF 

004526 000000 HAL T ‘ 
701 004530 000167 173444 JMP 20¢ 
702 004534 104401 ILLDWN: TYPE s:POWER DOWN BEFORE UP COMPLETE 
703 004536 010107 DOWN 

004540 000000 HALT 
705 004542 000167 173432 JMP 200 
09 
708 004546 000000 ERRAD: .WORD 0 :RETURN ADDRESS FROM POWER FAIL 
709 004550 000024 000026 UVEC: -WORD 24,26 :UP ADDRESS PAIR 
710 004554 000024 000026 ' DVEC: -WORD 24,26 :DOWN ADDRESS PAIR 
7171 004560 000000 SAV6: -WORD 0O :SOME PLACE TO PUT THE SP 
712 004562 FLAG: .WORD QO *1 INSTRUCTION DOWN FLAG 
713 004564 000000 LIMI1 -WORD 0 ;TOP OF MEMORY 
714 004566 052525 DATA: . WORD §2525 WHAT IS 10 BE WRITTEN INTO MEMORY 


Cee AR Ce 11/44 POWER F 


AIL 
TUP MEMORY MANAGMENT REGISTERS 


715 


— ee ee ee 


728 666 
729 004670 


elelelelele) ela) e) es 
ead ed eed wed weed ceed ed eed eed md 
ch tg A yh iy 
Ww 
N 


388 
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.SBITL SETUP MEMORY MANAGMENT REGISTERS 


172340 MAP: MOV #0, a4K IPARO :SETUP PARO FOR 1ST 4k 

172300 MOV #77606, ; 94K 1PDRO 24K, R/W, EXPAND UP 

172352 MOV #0. aA#KIPARS T UP PARS FOR 1ST 4k 

172312 MOV T7806. Bek IPDRS “aK, R/W, ED=UP 

172354 MOV #200, QFKIPAR6 :SET UP PAR6 FOR 2ND 4 

172314 MOV aAK IPDR6 =ABORT ALL REFERENCES 

172356 MOV #159600, @#KIPAR7:SET UP PAR? FOR 1/0 PAGE 

172316 MOV #77406,aA#KIPDR? :4K, R/W, ED=UP 

172516 MOV #31T04.a4MMR3  :SET UP fon 22-BIT MAPPING 

000250 MOV #MMERR.a#MMVEC :SET UP MEMORY MANAGEMENT VECTOR 
RTS PC “RETURN FROM CAL 

MMERR: HALT “MEMORY MANAGEMENT ERROR 

BR MMERR 


AEE oe ee ee + eee 
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SUBROUTINE TO LOAD $ [PARO-SIPAR3 WITH A SUBROUTINE 


te, .SBTTL SUBROUTINE TO LOAD SIPARO-SIPARS WITH A SUBROUTINE 
731 004672 012737 OerO0 172240 SETPAR: MOV #12700, @#SIPARO ;LOAD PARO & 1 WITH MOV #1777,R0 
732 004700 012737 001777 172242 MOV #1777 ,aASIPAR 
733 004706 012737 977001 172244 MOV #77001, @A#SIPAR2 ;LOAD PAR2 WITH SOB RO,. 
734 004714 012737 000207 172246 MOV #207,Q#SIPAR3  :LOAD PAR3 WITH RTS PC 
735 004722 000207 RTS PC 
7 -SBTTL ROUTINE TO SIZE MEMORY 
737 -SBTTL ROUTINE TO SIZE MEMORY 
£ SAAAAARAAAAAARAEAARRARAERAAEAAAEKAARAAAEKAAAAAARARKAAAAAAAAAAAA RARER S 
‘*CALL: 
; JSR PC,$SIZE 
: RETURN 
: #SLSTAD WILL CONTAIN: 
: WITH KT11 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
:* WITHOUT KT11 OPTION =~ LAST —* ADDRESS OF AVAILABLE MEMORY 


:*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 
:*$KT11 IS THE MEMORY MANAGEMENT KEY 
:*BITO7 = QO DON'T USE MEMORY geo gl 


-eBIT15 = ME y MANAGEMENT OPTION 

:* DETERMINED BY ROUTINE 
004724 010046 $SIZE: MOV RO,-(SP) ::SAVE RO ON THE STACK 
004726 010146 MOV R1,-(SP) + = SAVE R1 ON THE STACK 
004730 010246 MOV R2,-(SP) ::SAVE R2 ON THE STACK 
004732 010346 MOV R3,-(SP) >: SAVE R3 ON THE STACK 
004734 010446 MOV R4,-(SP) ;; SAVE R4& ON THE STACK BKOO1 
004736 013746 000114 MOV a#i14,-(SP) «SAVE MEMORY ERROR VECTOR PS & PC 
004742 013746 000116 MOV a#116.-(SP) 
004746 012737 000116 000114 MOV #116,a4114 :: IGNORE PARITY ERRORS WHILE SIZING 
004754 012737 000002 000116 MOV #RTI 4116 
004762 013746 000004 MOV A#ERRVEC,-(SP) :: SAVE PRESENT ERROR VECTOR PS & PC 
004766 013746 000006 MOV QHERRVEC+2,-(SP) 
004772 010600 MOV SP,RO :=SAVE THE STACK POINTER 

::SET THE ERRVEC PS TO THE PRESENT PS 
004774 104400 TRAP ;PUSH OLD PSW AND PC ON STACK 
004776 012637 000006 MOV (SP) +, #ERRVEC+2° ::SAVE THE PSW IN a#ERRVEC+2 
005002 012701 003776 MOV #3776._R1 ;sSETUP_ADDRESS 
005006 105727 TSTB ~—-_ (PC) + “USE MEMORY MANAGEMENT? 
005010 000200 $KT11: .WORD 200 :3SET TO USE MEMORY MANAGEMENT 
005012 100145 BPL SCORE “BR IF NO 
005014 012737 005320 000004 MOV #SKTNEX, QWERRVEC 73 SET"FOR TIMEOUT 
005022 005737 177572 TST SRO ::kT11 ARE YOU THERE? 
005026 052767 100000 177754 BIS 100000, $KT11 =: YES--SET KT11 KEY 
005034 012737 005064 000004 MOV #100$, a#ERRVEC ;3SET FOR TIMEOUT BKOO1 
005042 005737 170200 TST a4#170200 “UNIBUS MAP ARE YOU THERE? BK001 
005046 012737 176200 005104 MOV #176200 av$STOP : :YES-SET COMPARISON VALUE FOR 11/70 —_ BKOO1 
005054 012737 000200 005102 MOV 0 a SMAP TURN ON MAP INDICATOR BkK001 
005062 000411 BR hig Pr “GO SET UP MAP REGISTERS BKOO1 
005064 012737 006200 005104 100$: MOV #6200, a#$STOP «COMPARISON VALUE FOR 18 BIT MAPPING BKOO1 
005072 022626 CMP (SP)+, (SP)+ = =CLEAN OFF STACK BK001 
005074 005037 005102 CLR aASMAP “MAKE SURE MAP INDICATOR TURNED OFF  BKOO1 
005100 000412 BR $NOMAP $5 BK001 
005102 000000 $MAP: .WORD 0 =200 IF MAP PRESENT BK001 
005104 000000 $STOP: .WORD 0 ;ZEILLED WITH APPROPRIATE COMPARISON VALUE BKOO1 
005106 012703 000037 $MAPRG: MOV #37,R3 “SET UP COUNTER BK001 
005112 012702 170200 MOV #170200, R2 =: START WITH MAPLO BK001 


005116 005022 100$: CLR (R2)+ 3:LOAD ALL MAP REGISTERS BKO01 





005120 
24 
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| ROUTINE TO SIZE MEMORY 


012722 
7304 


000074 


172340 
000010 
077406 
000200 
177600 


005202 
000060 


177572 


177572 
005102 


172516 
177744 


177744 
000001 


100000 
005356 


004000 
000040 


177776 


004000 
000040 


000006 
000004 
000116 
000114 
000020 
000016 
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SEQUENCE 
MOV #74, (R2)+ ::WITH THE VALUE 17000000 BK001 
SOB R3,100$ *>DO ALL 31 REGISTERS BKO01 
SNOMAP : 
CLR -(SP) ;; INITIALIZE FOR "PAR" LOADING 
MOV wk IPARQ, R2 : : ADDRESS OF FIRST ‘PAR 
MOV D8,R3 LOAD EIGHT 'PAR.'S’’ AND EIGHT ‘PDR. 'S'' 
177740 1$: MOV a7 7468. -40(R2) :: PDR = 4K, UP, READ/WRITE 
MOV (SP), (R2)+ >:LOAD ‘PAR 
ADD #200; (SP) : UPDATE OR NEXT ‘PAR'’ 
SOB R3,1$ “LOOP UNTIL ALL EIGHT ARE LOADED 
MOV #177600, -(R2) ;:SETUP KIPAR7 FOR 1/0 
CLR -(R “SETUP KIPAR6 FOR TESTING 
000004 MOV #2, AMERRVEC > CATCH TIMEQUT IF NO ask? 
172516 MOV #60, a4SR3 : TENABLE 22 BIT MODE AND UNIBUS MAP BKOO1 
BR 3$ > THIS Bpb17 WAS A SR3 REGISTER 
2$: CMP (SP) +, (SP) + ; 7 CLEAN OFF THE STACK=-NO SR3 
3$: INC a4SRO -TURN ON MEMORY MANAGEMENT 
000004 MOV #SKTOUT,@#ERRVEC :;SET FOR TIME OUT 
TSTB a@ASMAP :21s MAP THERE? BKOO1 
L 4$ NO=Sk IP BKOO1 
000114 MOV #SMMOUT , 4114 T UP MEMORY ERROR VECTOR BKOO1 
000116 MOV Q#ERRVEC+2,a4116. : LOCK OUT INTERRUPTS BKOO1 
4$: TST a4143776 >: TRAP ON NON-EX 
ADD #40, (R2) “MAKE A 1K STEP 
CMP a#SSTOP, (R2) = LAST ONE? 
BHI 4$ -:NO=-TRY IT 
$KTOUT: MOV (R2) ,R2 GET LAST BANK+1 
CLR a4SRO i OFF MEMORY MANAGEMENT 
TSTB  a@A$MAP aa: MAP THERE? BK001 
BPL $SIZEX > =NO=SKIP BK001 
CLR af aFSR3 >: TURN OFF MAP BKOO1 
$SMMOUT: MOV Q4177744,RS ::SAVE MEMORY ERROR REGISTER BKO001 
MOV RG, 4177744 7: CLEAR BITS IN REGISTER BKOOT 
BIT #1 RG MORY TIMEOUT? BKOO1 
BNE $KTOUT ;sYES~EXIT BKOO1 
RTI ;:MUST BE PARITY ERROR I GNORE IT BKOO1 
177462 $KTNEX: BIC #100000,$KT11 _::KT11 NON-EXISTENT 
000004 $CORE: MOV ASCROUT ,aA#ERRVEC "EESET FOR TIMEOUT 
CLR R2 :SET UP BANK 
1$: ADD #4000,R1 ; FINCREMENT BY 1k 
ADD #60,R2 >:1K STEP 
TST (R15 >: TRAP ON TIME OUT 
CMP #177776,R1 > LAST ONE 
BNE 1$ > =NO--TRY AGAIN 
$CROUT: SUB #4000,R1 
$SIZEX: SUB #40, R? :3 OP BACK 
MOV RO, SP -*RESTORE THE STACK 
MOV (SP) +, Q#ERRVEC+2 ::RESTORE ERROR VECTOR 
MOV (SP) +, aMERRVEC 
MOV (SP) +. a#116 ::RESTORE MEMORY ERROR VECTOR 
MOV (SP)+,a4114 
MOV R1,$LSTAD -:LAST ADDRESS 
MOV R2,$LSTBK “LAST BANK 
MOV (SP) +,R4 : RESTORE R4 BK001 
MOV (SP) +.R3 “RESTORE R3 
MOV (SP) +.R2 > RESTORE R2 
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ROUTINE TO SIZE MEMORY 
| MOV (SP)+,R1 ;sRESTORE R1 
G082 §  $1560¢ we ella RESTORE RO 
Soee3e 900000 $LSTAD: .WORD 0 _ 3 ZCONTAINS THE LAST ADDRESS 
005436 000000 $LSTBK: .WORD 0 3: CONTAINS THE LAST BANK 


ee em ere 
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eee - _es 


739 


005440 


Ee ee. 


000000 
000001 
000207 
000002 


000001 


000076 
177770 


000060 
000040 
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000211 


000171 
000165 
000154 


— oe ee ee ee a ee ee 


SEQUENCE 


.SBITL BINARY TO OCTAL (ASCII) AND TYPE 

TO RARAAEAASBABRAAASAEASAAASAAAASLALSLESE ESSERE SERRE RE R RRR RRS REARS ERAS SS SC | 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT 

; s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
-* 2 


3* MOV NUM ,- (SP) ;NUMBER TO BE TYPED 

ge TYPOS «CALL FOR TYPEOQUT 

;* -BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -_BYTE ™ ::M=1 OR 4, 

;* =TYPE LEADING ZEROS 

;* :  DESUPPRESS LEADING ZEROS 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


> *CALL: 
ed MOV NUM, - (SP) : NUMBER TO BE TYPED 
:* TYPON 3:CALL FOR TYPEOUT 
** 
ane HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** . 
:* MOV NUM, ~(SP) : ;NUMBER TO BE TYPED 
2* TYPOC :;CALL FOR TYPEOUT 
$TYPOS: MOV a(SP) ,-(SP) 3zPICKUP THE MODE 
MOVB 1(SP) , SOF ILL : «LOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) :: ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1, SOF ILL :z:SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE +1 :7SET FOR SIX(6) DIGITS 
$TYPON: MOVB #5, S0CNT 7;SET THE ITERATION COUNT 
MOV R3.-(SP) >; SAVE R3 
MOV R4,-~-(SP) : 3 SAVE RS 
MOV R5,~(SP) AVE RS 
a . E+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
ADD #6 RS :; SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4 , SOMODE 7;SAVE IT FOR USE 
MOVB SOF ILL,R4 :;GET THE ZERO FILL SWITCH 
MOV 12¢SP) ,R5 Be THE INPUT NUMBER 
CLR R3 :CLEAR THE OUTPUT WORD 
1$: ROL R5 :;ROTATE MSB INTO *'C’" 
BR 3$ ;GO DO MSB 
2$: ROL R5 FORM THIS DIGIT 
ROL R5 
ROL 5 
MOV R5,R3 
3$: ROL R ::GET LSB OF THIS DIGIT 
DECB SOMODE +3 TYPE THIS DIGIT? 
BPL 7 IF NO 
BIC #177770,R3 GET e OF JUNK 
BNE 7: TEST FOR 0 
TST R4 a THIS 0? 
BEQ 5$ ;7BR IF YES 
4$: INC R4 7:DON'T SUPPRESS ANYMORE 0°S 
BIS #'0,R3 7z7MAKE THIS DIGIT ASCII 


5$: BIS #* ,R3 ::MAKE ASCII IF NOT ALREADY 


ee 
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5620 
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(ASCIi) AND TYPE 


110367 
104401 
105367 


00 
002402 
00 


000040 MO VB R3,8$ 
605660 TYPE 8$ 
000032 7$: DECB = $OCNT 
BGT 2$ 
BLT 6$ 
INC RS 
BR 
6$: MOV (SP) +,R5 
MOV (SP) +, RS 
MOV (SP)+,R3 
000002 000004 MOV 2(SP) ,4(SP) 
MOV (SP)+, (SP) 
RT] 
8$: BYTE O 
BYTE 0 
SOCNT: .BYTE 0 
SOFILL: .BYTE 0 
SOMODE: .WORD 0 


SE QUE NCE 


77 SAVE FOR TYPING 

;;G0 TYPE THIS DIGIT 

;; COUNT BY 1 

;;BR IF MORE TO DO 

o3 F DONE 

3; INSURE LAST DIGIT ISN'T A BLANK 
3 DO THE LAST DIGIT 


7 REST R3 
::SET THE STACK FOR RETURNING 


7 RETURN 
32 STORAGE FOR ASCII DIGIT 


; AL 
>sZERO FILL SWITCH 
; NUMBER OF DIGITS TO TYPE 


40 


CKKACCO 
CONVERT 


(4) 


11/46 POWER FAIL 
BINARY TO DECIMAL AND TYPE ROUTINE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

TOPO PSRASBARSASAASLASLSASESLE SELES ERAR ERE R ARERR RRARRR ERASER RR ARERR AR RR AS SS SG | 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGI1 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


104401 


020200 
000020 


000055 


006102 
000040 


006072 


177777 


006102 


C 4 
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000901 


177777 


177776 


:*NUMBER IS POSITIVE OR NEGATIVE A 


SPACE OR A MINUS SIGN WILL BE TYPED 


:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
:*REPLACED WITH SPACES. 


= *CALL: 


** 


;* 
STYPDS: 


7$: 


8$: 


9$: 


NUM, = (SP) 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R5,-(SP) 
#20200,-(SP) 
20(SP) ,R5 
1$ 

R5 
#*=-,1(SP) 
RO 


#$DBLK,R3 
a (R3)+ 


2 
$DTBL (RO) ,R1 
R5 


6 

1(SP) .-1(R3) 
#°O,R2 
#* ,R2 
R2, (R3)+ 
(RO) + 
RO,410 
2$ 

8$ 

R5,R2 

6$ 

(SP) + 


9$ 
-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R5 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
, SDBLK 


77PUT THE BINARY NUMBER ON THE STACK 
::GO TO THE ROUTINE 


;;PUSH RO ON STACK 
;zPUSH R1 ON STACK 
;:PUSH R2 ON STACK 
3:PUSH R3 ON coat 


:ZMAKE THE ASCII NUMBER NEG. 
+2 ZERO THE CONSTANTS INDEX 
;SETUP THE OUTPUT POINTER 
::SET THE FIRST CHARACTER TO A BLANK 
:;CLEAR THE BCD NUMBER 
3:GET THE CONSTANT 
; FORM — BCD DIGIT 


:7BR OIF 
;; INCREASE THE BCD DIGIT BY 1 


;ADD BACK THE CONSTANT 

$3 CHECK IF BCD DIGIT=0 
L THROUGH IF 0 

Bn iF 5 ae LEADING 0°S? 


:;BR IF NO 
72 YES=SET THE SIGN 

sMAKE THE BCD DIGIT ASCII 
>:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3zPUT THIS CHARACTER IN THE OUTPUT BUFFER 
;:GO DO THE NEXT DIGIT 
::G0 TO EXIT 
4d THE LSD 
; CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 


‘TBR IF NO 
::YES-oSET THE SIGN FOR TYPING 
;;SET THE TERMINATOR 
: EOP STACK INTO R5 

;;POP STACK INTO R3 

;POP STACK INTO Re 
: POP STACK INTO R1 

;POP STACK INTO RO 

::NOW TYPE THE NUMBER 


i me ae a ee es 


SE QUE NCE 


41 
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TO DECIMAL AND TYPE ROUT! 


000002 000004 MOV 2(SP) ,4(SP) > ADJUST THE STACK 
(SP) +, (SP) 


7 
: sRETURN T m 
$DTBL: 10000. —— 


SDBLK: .BLKW 4 


SEQUENCE 


4? 


e 4 
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TYPE ROUTINE 


74% -SBTTL TYPE ROUTINE 


TOR RRABERRBSBSBASRAAALESESLSLSLERASERRRRRRSRRRARR ARRAS RRR RARRR RRR RAR SRS ESE SD | 


>*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 fit 


>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
: *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
- *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
* *NOTE 3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
e *CAL : 
-*1) LOSING A TRAP iNSTRUCTION 
is TYPE .MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
;* TYPE 
;@ ME SADR 
"* 
| 006112 105767 000353 $TYPE: TSTB STPFLG :21S THERE A TERMINAL? 
116 100002 BPL 1$ IF YES 
006120 000000 HALT >:HALT HERE IF NO TERMINAL 
006122 000430 BR 3$ > ; LEAVE 
606124 010046 18: MOV RO,-(SP) :: SAVE RO 
006126 017600 000002 MOV a2(SP),RO ::GET ADDRESS OF ASCIZ STRING 
006132 122767 000001 172774 CMPB #APTENV, SENV ::RUNNING IN APT MODE 
006140 001011 BNE 62$ -:NO,GO CHECK FOR APT CONSOLE 
006142 132767 060100 172765 BITB #APTSPOOL,$SENVM :;:SPOOL MESSAGE TO APT 
006150 001405 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
006152 010067 000004 MOV RO.61$ -;SETUP MESSAGE ADDRESS FOR APT 
006156 004767 172774 JSR PC, $SATY3 ::SPOOL MESSAGE TO AP 
006162 000000 61$: .WORD 0 :MESSAGE ADDRESS 
006164 132767 000040 177743 62$: BITB #HAPTCSUP,$ENVM ::APT CONSOLE SUPPRESSED 
006172 001003 BNE 60$ :3YES,SKIP TYPE OUT 
006174 112046 2$: MOVB (RO) +,-(SP) -PUSH CHARACTER TO BE TYPED ONTO STACK 
006176 001005 BNE 4$ -:BR IF IT ISN'T THE TERMINATOR 
006200 005726 TST (SP) + >: IF TERMINATOR POP IT OFF THE STACK 
006202 012600 60$: MOV (SP) +,RO ; sRESTORE RO 
006204 062716 000002 3$: ADD #2, (SP) sADJUST RETURN PC 
006210 000002 RTI : = RETURN 
006212 122716 000011 4$: CMPB #HT, (SP) + :BRANCH IF <HT> 
006216 001430 BEQ 8$ 
006220 122716 000200 CMPB ACRLF, (SP) ::BRANCH IF NOT <CRLF> 
006224 001006 BNE 5$ 
006226 005726 TST (SP) + :POP <CR><LF> EQUIV 
006230 104401 TYPE «TYPE A CR AND LF 
006232 006473 $CRiF 
006234 105067 000212 CLRB $CHARCNT ::CLEAR CHARACTER COUNT 
006240 000755 BR 2$ *:GET NEXT CHARACTER 
006242 004767 000056 S$: JSR PC. $TYPEC :3G0 TYPE THIS CHARACTER 
006246 126726 000216 6$: CMPB $FILLC,(SP)+ -I1S IT TIME FOR FILLER CHARS. ? 
006252 001350 BNE 2$ >: IF NO GO GET NEXT CHAR. 
: 006254 016746 000206 MOV $NULL ,-(SP) ::GET # OF FILLER CHARS. NEEDED 
006260 105366 000001 7$: DECB 1(SP) ->DOES A NULL NEED TO BE TYPED? 
| 006264 002770 BLT 6$ “BR IF NO-~GO POP THE NULL OFF OF STACK 
006266 004767 000032 JSR PC, STYPEC 560 TYPE A NULL 
006272 105367 000154 DECS $CHARCNT -:D0 NOT COUNT AS A COUNT 
006276 000770 BR 7$ =: LOOP 
:HORIZONTAL TAB PROCESSOR 
006300 112716 000040 8$: MOVB #’ ,(SP) ::REPLACE TAB WITH SPACE 
| 
* 


EE LL Sn <= ame 
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005726 
105777 


000014 
G00007 


0000 
177600 
000021 


000060 
000002 


000002 
000015 


000014 
000012 


000 
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000134 


000021 


000042 
000002 


000002 


SR 
BITB 
BNE 
TST 
BR 
$TYPEC: 
TSTB 
BPL 
MOV 
BIC 
CMPB 
BNE 
101$: 
TSTB 
BPL 
MOVB 
BIC 
CMPB 
BNE 
102$: 
TST 
10$: 
TSTB 
BPL 
C 
BEQ 
MOVB 
CMPB 
BNE 
CLRB 
BR 
1$: CMPB 
BEQ 
INCB 
SCHARCNT:.WORD 
S$TYPEX: RTS 
$TKS: . WORD 
$TKB: . WORD 
$TPS: . WORD 
$TPB: . WORD 
$NULL: .BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
$TPFLG: .BYTE 
$SQUES ASCII 
$CRLF ASCII 
$LF: -ASCIZ 


PC STYPEC 
#7, $CHARCNT 
9$ 


(SP) + 
2$ 


aiks 
10$ 


a$TKB,-(SP) 
#177600, (SP) 
#SXOFF , (SP) 
102$ 


a$TKB, (SP) 
#177600, (SP) 
#$X0N, (SP) 
101$ 


(SP) + 
= 


O$ 

2(SP) ,#$XON 
STYPEX 
2(SP) ,a$TPB 
— 


ALF ,2(SP) 
$TYPEX 
(PC)+ 

0 


SEQUENCE 
si: TYPE A SPACE 
ae ST IF NOT AT 
STAB STOP 


:POP SPACE OFF STACK 
SIGET NEXT CHARACTER 


>: CHAR IN KYBD BUFFER? :MJD001 
:3BR IF NOT ;MJbOO1 
3;;GET CHAR 7MJDOO1 
: STRIP ae PITS payed 
> ;BR IF Ore ;MJDO001 
MJDOO1 
::WAIT FOR CHAR 7MJDOO1 
;MJDOO1 
::GET CHAR ;MJDO01 
;7STRIP_IT -MJDOO1 
;3WAS IT XON? -MJDOO1 
3;BR IF NOT ;MJDOO1 
-MJDOO1 
:zFIX STACK :MJjDO01 
MJDOO1 

;;WAIT UNTIL PRINTER IS READY 
7MJDOO1 
71S CHARACTER A RANDOM XON? ;RANOO1 
; ;BRANCH IF YES ; RANOO1 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3271S CHARACTER A CARRIAGE RETURN? 

; BRANCH IF NO 

ieee CHARACTER COUNT 


SIs CHARACTER LINE FEED? 


32 CHARACTER COUNT STORAGE 


seTTy KDB STATUS >MJD001 
: TTY KBD BUFFER >MJD001 
= TTY PRINTER STATUS REG. ADDRESS 
:: TTY PRINTER BUFFER REG. ADDRESS 
:: CONTAINS NULL CHARACTER FOR FILLS 
: ;CONTAINS #4 OF FILLER CHARACTERS oor 
2 INSERT FILL CHARS. AFTER A “LINE FEED 
>" "TERMINAL AVAILABLE’ FLAG (BIT<O7>=0=YES) 
3 3QU UESTION MARK 
;CARRAIGE RETURN 
== LINEFEED 


re er rn ee 


cm me ee ree 
; 


CKKACCO 11/46 POWER FAIL 


TRAP DECODER 
745 


— mee ee ee eet 


000 
000200 
011646 


016666 
000002 


005666 
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000002 


006532 


000004 000002 


eee a ee ee 


SE QUE NCE 


.SBITL TRAP DECODER 

ERR AREER RARER AAR R ETE A RRA RER ERR EERE ERE ARR ReTe 

; *THIS ROUTINE WILL PICKUP THE ee BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
: *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 7 zSAVE RO 
MOV 2(SP) ,RO + GET TRAP ADDRESS 
TST -(RO) 2 


;BACKUP BY 
:2GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
STRPAD(RO), RO ; 3 INDEX TO TABLE 
RO O TO ROUTINE 


RTS 
3zTHIS IS USE TO HANDLE THE “GETPRI" MACRO 
(SP) ,-(SP) 


$TRAP2: MOV S :sMOVE THE PC DOWN 
MOV 4 (SP) ,2(SP) 7zMOVE THE PSW DOWN 
RTI ;zRESTORE THE PSW 
-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
**BY THE "'TRAP'' INSTRUCTION. 
: ROUT INE 
$TRPAD: zWORD $TRAP2 


; = CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
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ERROR PRINT ROUTINE 


Nae 


789 006762 


104000 
000000 


ae 


011601 
162701 
010167 
104401 
000411 


005721 
012702 


004753 
000764 


104401 
000401 


016746 
104403 
006 


000002 
177716 
006636 


007634 
007110 


006716 


172174 


006736 


177600 
003740 


000002 


FRROR 
ERRPC: 


SERROR: 


SAVRO: 
SAVR1: 
SAVR2: 
SAVRS: 
SAVRG: 
SAVRS5: 


TITL: 


:65$: 
AY 
3$: 


2$: 


DAT: 


77365$: 
64$: 


3 :67$: 
66$: 


3$: 
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SEQUENCE 


-SBTTL ERROR PRINT ROUTINE 


=104000 
WORD 


(SP) ,R1 
#2,R1 
R1,ERRPC 
65$ 


64$ 
<CRLF><CRLF>/TESTNO 
=R1 POINTS TO NEXT ARGUEMENT 

sADDRESS OF START OF PRINT TABLE LIST 


zADDRESS OF STERT OF TITLES 
;END OF ARGUEMENTS? 


(R1)+ 
#PRTABL ,R2 
#PRTITL,R3 
(R1) 

DAT 

(R5)+ 
(R1),(R2)+ 
2$ 
PC,a-(R3) 
3$ 


,65$ 
64$ 
<CRLF > 


$STESTN,-(SP) 


ERRPC ,~(SP) 
,SENULL 
(SP) ,R1 
#2,R1 

(R1)+ 


:SAVE RO THRU R5 


:R1 CONTAINS ADDRESS FLLOWING ERRPC ADDRESS 


ye ADDRESS OF ERROR MESSAGE :ERRPC 
;TYPE ASCIZ STRING 

:GET OVER THE ASCIZ 

ERRPC/ 


-YES,GO PRINT DATA. 


7 INDEX THRU TITLES 


;SEARCH PRINT TABLE LIST FOR TITLE 


:NO; CHECK NEXT LOCATION IN LIST 


:FOUND IT; GO PRINT TITLE CODE ERROR ROUTINE 


;; TYPE ASCIZ STRING 
3:GET QVER THE ASCIZ 


7z7SAVE STESTN FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII 

3; TYPE 6 DIGIT(S) 

>; SUPPRESS LEADING ZEROS 
3; TYPE ASCIZ STRING 

3:GET OVER THE ASCIZ 


:SAVE ERRPC FOR TYPEOUT 
260 TYPE=-OCTAL ASCIICALL DIGITS) 


:R1 CONTAINS ADDRESS FOLLOWING ERRORPC ADDRESS 
3R1 POINTS TO NEXT ARGUEMENT 


46 
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ERROR PRINT ROUTINE 


| 


007020 
798 007020 
799 007022 
800 007026 
007032 
007040 
801 007040 
802 
803 C07042 
804 007044 
805 007046 
007052 
007056 


7 007056 


So oOo 
© 
™N 
_ 
© 
oO 


012702 


016701 


016705 
000002 


007634 
0607470 


007014 


003740 
007034 


007054 


177520 
177516 


177506 


2$: 


769%: 
68$: 


::71$: 
70$: 


FIN: 


7:65$: 
64$: 


RT] 
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#PRTABL ,R2 
#PRDATA,R3 
(R1) 


FIN 

(R3)+ 
(R1),(R2)+ 
2$ 

,69$ 

68$ 

/ / 
PC,a-(R3) 
,» SENULL 
,71$ 


70$ 


6 
<CRLF > 


SAVRO ,RO 
SAVR1,R1 


SAVRS,R5 
sRETURN 


;ADDRESS OF START OF PRINT TABLE LIST 
ZADDRESS OF STERT OF PRINT DATA 
;END OF ARGUEMENTS? 


sYES 

; INDEX THRU DATA PRINTS 

: SEARCH PRINT TABLE LIST FOR 
:NO; CHECK NEXT LOCATION IN 
si TYPE ASCIZ STRING 

:;GET OVER THE ASCIZ 


TITLE 
LIST 


:z TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


:R1 NOW CONTAINS RETURN ADDRESS 
;SETUP RETURN ADDRESS IN STACK 
3zTYPE ASCIZ STRING 
3i;GET OVER THE ASCIZ 


SRESTORE REGISTERS 


ee ee 


SEQUENCE 


ee 
a 


815 

816 007110 

817 007134 
007134 


007264 
007270 
007310 


) 
yh: 007336 
9 007 


007440 
834 007440 
835 007442 
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007134 
104401 
000407 
000207 
104401 
000407 


000207 
104401 
000407 
000207 
104401 
000407 


000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 


000207 


07162 007210 ee 


007142 


007170 


007216 


007244 


007272 


007320 


007346 


007374 


007422 


:;65$: 


64$: 
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. SBTTL 
. WORD 
TYPE 


BR 
ASCIZ 


RTS PC 
TYPE 
BR 
-ASCIZ 
RTS PC 
TYPE 
BR 
eASCIZ 
RTS PC 
TYPE 
BR 
-ASCIZ 
RTS PC 
TYPE 
BR 
-ASCIZ 
RTS PC 
TYPE 
BR 
-ASCIZ 
RTS PC 
TYPE 
-ASCIZ 
RTS PC 
TYPE 
BR 
-ASCIZ 
RTS PC 
TYPE 
BR 
-ASCIZ 
RTS PC 


J & 
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SUBROUTINES TO PRINT DATA HEADERS 
1$,2$,3$,4$,5$,6$,7$,10$,11$,12$ 


,65$ 
64$ 
/- EXPDAT 


,67$ 
66$ 
/ RECDAT 


69% 
68$ 
/ EXP.ADD 


,/1$ 
70$ 
/ _REC.ADD 


,73$ 
72$ 
f tit 


.75$ 
74$ 
/  REC.SP1 


,77$ 
76$ 
/  EXP.PSW 


79% 
78$ 
/  REC.PSW 


,81$ 
80% 
/  VIR.ADD 


/ 


/ 


77 TYPE ASCIZ STRING 
 3s3GET OVER THE ASCIZ 


:2TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


sz TYPE ASCIZ STRING 
3iGET OVER THE ASCIZ 


32 TYPE ASCIZ STRING 
P 3:GET OVER THE ASCIZ 


73 TYPE ASCIZ STRING 
, 3:GET OVER THE ASCIZ 


zz TYPE ASCIZ STRING 
P :;GET OVER THE ASCIZ 


sz TYPE ASCIZ STRING 
P ::;GET OVER THE ASCI1Z 


3; TYPE ASCIZ STRING 
/ 7:GET OVER THE ASCIZ 


zz TYPE ASCIZ STRING 
/ ::GET OVER THE ASCIZ 


ew a ee ees ome 0 es eee - oe owe ee =e ~— 


SEQUENCE 


46 


4 
CKKACCO 11/44 POWER FAIL MACRO M1113 O6-APR-81 14:07 PAGE S1- 1 SEQUENCE 49 
| SUBROUTINES TO PRINT DATA HEADERS 


007442 104401 007450 TYPE 83$ zz: TYPE ASCITZ STRING 
007446 000407 BR 82$ ::GET OVER THE ASCIZ 
ue -ASCIZ / #£PAR.OFF 


| 

| 

| 

007466 

| 836 907466 000207 RTS PC 


er rs Re me me 


SE A ee 


— CKKACCO 11/4 
SUBROUT I NE 


$ TO 


837 

838 007470 

839 007514 
514 


00 
850 007572 
851 007574 
007574 
007600 
852 007602 
853 007604 
007604 
007610 
854 007612 
855 007614 
007614 
007620 
856 007622 
857 007624 
007624 


007630 
858 007632 


4 POWER FAIL 
PRINT DATA 


007514 


016746 
104402 
000207 


016746 


016746 
104402 
000207 


016746 
104402 
000207 


016746 


016746 
104402 
000207 


016746 
104402 
000207 


016746 
104402 
000207 


016746 
104402 
000207 


016746 
104402 
000207 


L_ 4 
MACRO M1113 O6-APR-81 14:07 PAGE 32 


. SBTTL 
607524 007534 papal . WORD 


000140 


000132 


000124 


000116 


060110 


000102 


000074 


000066 


000060 


000052 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 


10$: 


11$: 


12$: 


MOV 
TYPOC 
RTS PC 
MOV 


TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


MOV 
TYPOC 
RTS PC 


SUBROUTINES TO PRINT DATA 
1$,2$,3$,4$,.5$,6$,7$,10$,11$,12$ 


EXPDAT ,~“SP) 


RECDAT,~(SP) 


EXP.ADD,-(SP) 


REC.ADD,-(SP: 


EXP.SP1,-(SP) 


REC.SP1,-(SP) 


EXP .PSW,-(SP) 


REC .PSW,-(SP) 


VIR.ADD ,~(SP) 


PAR .OFF ,-(SP) 


;:SAVE EXPDAT FOR TYPEOUT 
3:GO TYPE=-OCTAL ASCIICALL DIGITS) 


7;SAVE RECDAT FOR TYPEOUT 
33G0 TYPE=-OCTAL ASCII‘(ALL DIGITS) 


;zSAVE EXP.ADD FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


;7SAVE REC.ADD FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


77SAVE EXP.SP1 FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIICALL DIGITS) 


7zSAVE REC.SP1 FOR TYPEOUT 
::GO TYPE--OCTAL ASCII(ALL DIGITS) 


7zSAVE EXP.PSW FOR TYPEOUT 
7:GO TYPE--OCTAL ASCIICALL DIGITS) 


7;SAVE REC.PSW FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIICALL DIGITS) 


;;SAVE VIR.ADD FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIIC(ALL DIGITS) 


77SAVE PAR.OFF FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIICALL DiGITS) 


TT SSS ns S=SSsSSs=Ss SSsSs-sssssst-i-sts 
mm mee 


SEQUENCE 


— ee eee ee —- ——— -_-—-— eo —- -—- 


M 4 
| CKKACCO 11/44 POWER FAIL MACRO M1113 06-APR-81 14:07 PAGE 33 SEQUENCE 
TABLES AND ASCII MESSAGES 


859 .SBTTL TABLES AND ASCII MESSAGES 


| 860 007634 007660 007662 007664 PRTABL: .WORD EXPDAT,RECDAT,EXP.ADD,.REC.ADD,EXP.SP1 
| 861 007646 007672 007674 007676 . WORD REC.SP1,EXP.PSW,REC.PSW,VIR.ADD,PAR. OFF 
| 862 007660 000000 EXPDAT: .WORD 0 . 
863 007662 000000 RECDAT: .WORD 0 
007: 000000 EXP.ADD: .WORD 0 
865 007666 000000 REC.ADD: .WORD 0O 
0076 000000 EXP.SP1: .WORD 0 
867 007672 000000 REC.SP1: .WORD O 
868 007674 000000 EXP.PSW: .WORD 0 
869 007676 000000 REC.PSW: .WORD 0 
007700 000000 VIR.ADD: .WORD O 
871 007702 000000 PAR.OFF: .WORD 0 
0077 015 012 103 PNAME: .ASCIZ <15><12>+CKKACCO 11/44 POWER FAIL+ 
873 007737 015 012 103 TITLE: .ASCIZ <15><12>+CKKACCO 11/44 POWER FAIL+<15><12> 
874 007774 015 012 102 BOOT: .ASCIZ <15><12>+BOOT ENABLE SWITCH MUST BE OFF+<15><12> 
875 010037 015 012 120 UPF: .ASCIZ <15><12>+POWER UP BEFORE POWER DOWN COMPLETE+<15><12> 
876 010107 015 012 120 DOWN: .ASCIZ <15><12>+POWER DOWN BEFORE UP COMPLETE+<15><12> 
877 010151 055 113 040 SUPMSG: .ASCII ?=-K WORDS OF MEMORY EXIST?<CRLF> 
878 010202 122 101 116 -ASCII ?RANDOM CHARACTER(S) CINCLUDING 4 FEED) ? 
879 010254 115 101 131 -ASCIZ 2MAY PRINT ON POWER CYCLING. ?<CRLF> 
880 010311 115 101 116 USRPFL: .ASCIZ ?MANUALLY INTERRUPT THE POWER AFTER EACH TEST #?<CRLF> 
881 010371 116 117 040 HDWPFL: .ASCII ?NO MANUAL INTERVENTION NECESSARY 
ans 010434 101 125 124 cy 2AUTO POWER FAIL TEST HARDWARE ORISTS?<CRLF> 
884 010502 000000 END: 0 
885 000001 .END 


one 


—— ——— -- - - —_ _—_— 


| N 4 
| eeeee as" POWER FAIL MACRO M1113 O6-APR-81 14:07 PAGE 335-1 SEQUENCE 52 


ABLE 
SE = 000000 B1T03 = 000010 KDPARO= 172360 MAPH14= 170262 MAPL33= 170354 
ACDW1 = 000000 61T04 = 000020 KDPAR1= 172362 MAPH15= 170266 MAPL34= 170360 
ACDW2 = 000000 BITOS = KDPAR2= 172364 MAPH16= 170272 MAPL35= 170364 
ACPUOP= 000000 I1T06 = 000100 KDPAR3= 172366 MAPH17= 170276 MAPL36= 170370 
ADDWO = 000000 BITO7 = 000200 KDPAR4S= 172370 MAPH2 = 170212 MAPL37= 170374 
ADDW1 = 000000 BITO8 = KDPARS= 172372 MAPH20= 170302 MAPL4 = 170220 
ADDW10= 000000 B1T09 = 001000 KDPAR6= 172374 MAPH21= 170306 MAPLS5 = 170224 
ADDW11= 000000 BITl = KDPAR7= 172376 22= 170312 MAPL6 = 170230 
ADDW12= 000000 B1T10 = 002000 KDPDRO= 172320 MAPH25= 170316 MAPL7 = 170234 
ADDW13= 000000 BIT11 = 0 KDPDR1= 172322 MAPH24= 170320 MEMERR= 177744 
14= 000000 BIT12 = 010000 KDPDR2= 172324 MAPH25= 170326 MME RR 4 
ADDW15= 000000 BIT13 = 02 KDPDR3= 172326 MAPH26= 170332 MMRO = 177572 
ADDW2 = 000000 B1T14 = 040000 KDPDR4= 172330 MAPH27= 170336 MMR1 = 177574 
3 = 000000 BIT15 = 100000 KDPDR5= 172332 MAPHS = 170216 MMR2 = 177576 
ADDW4 = 000000 BIT2 = KDPDR6= 172334 MAPH30= 170342 MMRS = 172516 
ADDWS = 000000 BITS = KDPDR7= 172336 MAPH31= 170346 MMVEC = 000250 
DW6 = 000000 BIT4 = 000020 KERSTK= 001100 MAPH32= 170352 PARERR 004260 
ADDW7 = 000000 BITS = 000040 KIPARO= 172340 MAPH33= 170356 PARFLG 004262 
ADDW8 = 000000 BIT6 = 000100 KIPAR1= 172342 4= 170362 PAR.OF 007702 
DW9 = 000000 BIT7 = KIPAR2= 172344 MAPH3S5= 170366 PFAIL 001416 
ADEVCT= 000000 BIT8 = 000400 KIPAR3= 172346 MAPH3S6= 170372 PIRQ = 177772 
ADEVM = 000000 BIT9 = KIPAR4= 172350 MAPH37= 170376 PIRQVE= 000240 
AENV = 000000 T 007774 KIPARS= 172352 MAPH4 = 170222 007704 
= 000000 BPTVEC= 000014 KIPAR6= 172354 MAPHS = 170226 POWDWN 004 
AFATAL= 000000 CACHVE= 000114 KIPAR7= 172356 MAPH6 = 170232 004454 
AMADR1= 000000 CHE CK 064 KIPDRO= 172300 MAPH7 = 170236 PRDATA 007470 
AMADR2= CONTRL= 177746 KIPDR1= 172302 MAPLO = 170200 PRETST 00 
AMADR3= 000000 CPUERR= 177766 KIPDR2= 172304 MAPLOO= 170200 PRTABL 007634 
AMADR4 = CR = 000015 KIPDR3= 172306 MAPLO1= 170204 PRTITL 007110 
AMAMS1= 000000 CRLF = 00 KIPDR4= 172310 MAPLO2= 170210 PRO = 
AMAMS2= 000000 DAT 006710 KIPDR5= 172312 MAPLO3= 170214 PRI = 
AMAMS3= 000000 DATA 004566 KIPDR6= 172314 MAPLO4= 170220 PR2 = 000100 
AMAMS4= 000000 DDISP = 177570 KIPDR7= 172316 MAPLO5= 170224 PRS = 000140 
= DISPLA= 177570 KSP =%000006 MAPLO6= 170230 PR4 = 000200 
AMSGLG= 000000 DISPRE 000174 F = 000012 MAPLO7= 170234 PRS = 000240 
AMSGTY= 0 OWN 010107 LIMIT 004564 L1 = 170204 PR6 = 000300 
AMTYP1= DSWR = 177570 K = 177546 MAPL10= 170240 PR7 = 000340 
AMTYP2= 000000 VEC 4554 LKVEC = 000100 MAPL11= 170244 PS = 177776 
AMT YP3= EMTVEC= 000030 LOAD 3760 MAPL12= 170250 PSW == 177776 
AMTYP4= 000000 10502 LOADRS= 177740 MAPL13= 170254 = 2 
APASS = 000000 ERRAD 00454 LRTI 001422 MAPL14= 170260 RECDAT 007662 
IOR= 000000 ERROR = 104000 MAINT = 177750 MAPL15= 170264 REC.AD 7 
APTCSU= 000040 ERRPC 006546 004570 MAPL16= 170270 REC.PS 007676 
APTENV= 000001 ERRVEC= 000004 MAPHO = 170202 MAPL17= 170274 REC.SP 007672 
APTSIZ= 000200 EXPDAT 007660 MAPHOO= 170202 MAPL2 = 170210 RESVEC= 000010 
APTSPO= 000100 EXP.AD 007664 MAPHO1= 170206 MAPL20= 170300 R19 =%000000 
= 000000 EXP.PS 007674 MAPHO2= 170212 MAPL21= 170304 R11 =%000001 
ATESTN= 000000 EXP.SP 0076 MAPHO3= 170216 MAPL22= 170310 R12 =%000002 
AUNIT = 000000 FIN 007042 4= 170222 MAPL23= 170314 R13  =%000003 
AUSWR = 000000 FLAG MAPHO5= 170226 MAPL24= 170320 R14 = 
AVECT1= 000000 HDWPFL 010371 = 170252 MAPL25= 170324 R15 =%000005 
AVECT2= C0000 HIADRS= 177742 MAPHO7= 170236 MAPL26= 170330 R6 =%000006 
BEGIN 001424 HITMIS= 177752 MAPH1 = 170206 MAPL27= 170334 R7 =%000007 
BITO = 000001 HT = 000011 MAPH10= 170242 3 = 170214 SAVRO 006602 
BITOO = 000001 ILLDWN 004534 MAPH11= 170246 MAPL30= 170340 SAVR1 006604 
BITO1 = 000002 ILLUP 004522 MAPH12= 170252 MAPL31= 170344 SAVR2 006606 
BITO2 = 000004 IOTVEC= 000020 MAPH13= 170256 MAPL32= 170350 SAVRS 006610 


a er a ee 


ee 
Se ee —_ 


> 
ae ae. POWER FAIL MACRO M1113 O6-APR-81 14:07 PAGE 83-3 SEQUENCE 55 


ABLE 

006612 SUPMSG 010151 TYPDS = 104405 SATY3 (01156 SMTYP1 091145 
SAVRS 006614 SUPS TK= 700 TYPE = 104401 SATY4 001166 SNOMAP 005126 
SAVE 004560 SWwR = 177570 TYPOC = 104402 SCHARC 006452 
SCOPE = 000004 SWREG 900176 TYPON = 104404 SCORE 005326 SNWTST= 000001 

SDP 172260 SwO Os TYPOS = 104403 $CPUOP 36 SOCNT 005662 

SDPARI= 172262 swOO = 000001 ARO= 177660 SCRLF 00647 005 
SDPAR2= 172264 SwO1 = 000002 UDPAR1= 177662 $CROUT 005356 SPASS 001122 
SDPAR 3= 176666 a = UDPAR2= 1 DBLK 006102 SPASTM 001106 
SDPARG= 172270 swOS = 000010 UDPAR3= 1 SDEVCT 001124 S 72 
SDPARS= 172272 SWO4 = 20 UDPARG4= 177670 DOAGN SRTNAD 003736 
SOF 172274 SwoS = 0 UDPARS= 177672 SDTBL 006072 SSAVPC= 
SUPAR7= 172276 SwO6 = 000100 AR6= 177674 SENDAD 003724 SSETUP= 000024 

172220 SWO7 = 200 UDPAR7= 177676 SENDCT 003672 SSIZE 004724 
SOPDRI= 172222 SWOS = 00 UDPDRO= 177620 SE 003743 SSIZEX 005362 
SDPDR2= 172224 SwO9 = 001000 UDPDR1= 177622 SENULL 003740 005104 
SDPDR 5= 176668 Sw1 = 2 UDPDR2= 177624 SENV 001134 $STUP = 177777 
SDPDRG= 1722 Sw10 = 002000 UDPDR3= 177626 SENVM 001135 $SVPC = 000204 
SDPDRS= 172232 Swit = 000 UDPDR4= 177630 $E 00 $S = 04 

172234 SW12 = 010000 UDPDRS= 177632 SEOPCT 00 SSWREG 001136 
SDPDR7= 172236 Sw15 = 020000 = 177634 SERROR 0065 STESTN 001120 
SE TPAR 72 SW14 = 040000 = 177636 SET 001134 $T 
IP 172260 Sw15 = 100000 UIPARO= 177640 SETEND 001150 $TKS 0064 
SIPAR1= 172242 Sw2 = UIPAR1= 177642 SFATAL 001116 $™N = 000012 
SIPAR2= 172244 Sw3 = 000070 UIPAR2= 177644 SFFLG 001414 $T 006464 
SIPAR3S= 172246 SW4 = UIPAR3S= 177646 SFILLC 006470 STPFLG 006471 
SIPARG= 172250 SW5 = 00004 UIPAR4= 177650 SFILLS 6 STPS 
SIPARS= 172252 SWw6 = 000100 UIPARS= 177652 S$GET42 003714 $T 006476 
SIPARG= 172254 SW7 == 000200 UIPAR6= 177654 = $STRAP2 006520 
SIPAR7= 172256 SWB = s =~ 0004 UIPAR7= 177656 SHIBTS 001100 STRP = 
SIPDRO= 172200 = UIPDRO= 177600 SKTNEX 005320 STRPAD 006532 
SIPDRI= 172202 SYSTID= 177764 UIPDR1I= 177602 $KTOUT 005256 STSTM 001104 
SIPDR2= 172 TBITVE= 000014 UIPDR2= 177604 $KT11 005010 $TYPDS 
SIPDR3= 172206 TITL 006616 UIPDR3= 177606 S$LF 006474 STYPE 006112 
SIPDRS4= 172210 TITLE 007737 UIPDRS4= 177610 SLFLG 001413 STYPEC 006324 
SIPDRS= 172212 TKVEC = O0CO060 UIPDRS= 177612 $LSTAD 005434 STYPEX 006454 
SIPDR6= 172214 TPVEC = = 177614 SLSTBK 005436 STYPOC 005464 
SIPDR7= 172216 TRAPVE= 000034 UIPDR7= 177616 001146 STYPON 005500 
SIZEHI= 177762 TRTVEC= 000014 010037 SMAIL 001114 STYPOS 005440 
SIZELO= 177760 TST1 002036 USESTK= 000600 SMAMS1 001144 001126 
SRO = 177572 TSTIO0 §©003420 =% $SMAP 005102 SUNITM 001110 
SR1 = 177574 TST11 003552 USRPFL 010371 SMAPRG 005106 SUSWR 001140 
os = 1775 ‘ST2 002254 UVEC 004550 SMBADR 001102 SXOFF = 000023 
SR = 172516 TST3 002504 VIR.AD 007700 SMFLG 001412 XON = 000021 
SSP = TST4 002764 YZ 001420 SMMOUT 005300 $S$GET4= 
STACK = 001100 TSTS 003070 SAPTHD 001100 $MSGAD 001130 SOFILL 005663 
STACK1= 000500 TST6 003200 SATYC 001174 $MSGLG 001132 $x = 001100 
STKLMT= 177774 TST? 0033520 S$ATY1 001150 SMSGTY 001114 
. ABS. 010504 


090000 001 
ERRORS DEIECTED: 0 


VIRTUAL MEMORY USED: 33040 WORDS ( 130 PAGES) 
DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 

ELAPSED TIME: 00:05:53 

CKKACC BIN, CKKACC/CR/=SP/NL : TOC=CKKACC .MLB/ML, CKKACC.P11 


CKKACC CREATED BY MACRO ON 6-4PR-81 AT 14:09 


PAGE 1 
SEQUENCE 54 
CREF 


SYMBOL CROSS REFERENCE vol 
SYMBOL VALUE REFERENCES 
| ABASE = =: 000000 7-292 
—ACDWT = =: 000000 7-292 
| ACDW2 = 000000 7=292 
| ACPUOP = 000000 7=290 7=292 
ADDWO = 000000 7=292 
ADDWI = 000000 7=292 
ADDWI0 = 000000 7=292 
ADDW11 = 000000 7=292 
ADDW12 = 000000 7-292 
ADDW13 = 000000 7-292 
ADDW14 = 000000 7~292 
ADDWI5 = 000000 7~292 
ADDW2 = 000000 7-292 
ADDW3 = 000000 7~292 
ADDW4 = 000000 7=292 
ADDWS = 000000 7-292 
ADDW6 = 000000 7=292 
ADDW7? = 000000 7-292 
ADDW8 = 000000 7=292 
ADDW9 = 000000 7-292 
= 000000 7-292 7-292 
= 000006 7-292 
= 000000 7~292 7-292 
= 000000 7-290 7-292 
= 000000 7~292 7-292 
= 000000 7-292 7-292 
= 000000 7-292 
= 000000 7-292 
= 000000 7-292 
= 000000 7-292 7-292 
= 000000 7~292 
= 000000 7-292 
= 000000 7~292 
= 000000 7-292 7-292 
= 000000 7-292 7~292 
= 000000 7-292 7-292 
= 000000 7-292 7-292 
= 000000 7-292 
= 000000 7-292 
= 000000 7-292 
= 000000 7-292 7-292 
= 000000 7-292 
= 000040 #7-293 28-7 
= 000001 7-293 —- #7-293 28-743 
= 000200 #7-293 -300 
= 000100 7-293 —-#7-293 28-743 
= 000000 7=292 7-292 
= 000000 7-292 7-292 
= 000000 7-292 7-292 
= 000000 7-292 7-292 
= 000000 7-292 
= 000000 7=292 
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po 


ede shectbedschochechvebeckeckecheckeckechockecheskockeclecloele siecle tle ekes 
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a 
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CREATED BY MACRO ON 6-APR-81 AT 14:09 , 
— SYMBOL CROSS REFERENCE 
| VAL 


oo lace 


REFERENCES 
7-281 #8 


2 -300 
47-280 
47-280 7-280 
#7-280 7-280 
#7~-280 7-280 
47-280 7-280 
#7~-280 7-280 
#7~-280 7-280 
#7-280 7-280 
#7-280 7-280 
#7-280 7-280 
#7~-280 7-280 
#7-280 
#7-280 
#7-280 
47-280 
#7-280 
#7-280 
47-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
9-340 #33-874 
#7~-280 
47-280 *8-302 
18-577 18-581 
47-280 
#7~-280 
#7-280 28-743 
#7-280 28-743 
33-880 33-882 
30-7753 #30-781 
20-589 21-609 
#7-280 -300 
#7-298 *8-300 
#7-281 -300 
23-703 #33-876 
#7-280 -300 
8-301 23-686 
#7-280 *12-452 
20-591 1-611 
*23-669 #23-708 
#7-280 10-365 
12-488 13-503 
#30-749 * 30-766 
#7-280 8-300 
*15=532 *17-555 


22-658 


24-725 


8-309 


#21-607 


28-743 
28-743 


10-377 

14-515 

30-784 
«8-300 
«17-569 


PAGE 2 
EQUENCE 55 
CREF v01 


30-767 


#23-710 
#33-884 


10-388 
15-529 


«8-300 
25-737 


30-767 


ee eee e+ 


30-781 


11-424 
17-563 


*13-505 
*25-737 


30-805 


11-435 
21-625 


* 14-509 
* 25-737 


33-877 


12-466 
#30-748 


*14-518 
*25-737 


35-879 


12-477 


#15=524 
225-737 


—— - ee ———= = 


CKKACC CREATED BY MACRO ON 6-APR-81 AT 14:09 PAGE 3 
SEQUENCE 56 
SYMBOL CROSS. REF ERENCE ceiittinien | CREF O01 
YMBOL V 
«25-737 25-737 # 25-737 *25-737 25-737 
EXPDAT 007660 *21-621 21-626 32-839 33-860 #33-862 
EXP. AD 007664 *10-375 10-379 * 11-433 11-437 #12-475 12-479 32-843 33-860 
EXP PS 007674 *10-386 10-390 *11-422 11-426 *12-486 12-490 32-851 33-861 
EXP.SP 007670 *10-363 10-367 *11-411 11-415 *12=-464 12-468 32-847 33-860 
FIN 007042 30-793 #30-803 
FLAG 004562 #15=-523 *23-666 *23-667 #23-712 
GNS = thereon 7-281 7-281 10-355 11-400 12-447 13-495 14-507 15-520 
17-552 18-576 29-745 29-745 29-745 29-745 29-745 29-745 
29-745 29-745 29-745 30-767 30-781 30-783 30-797 30-800 
te 14 31-819 31-821 31-823 31-825 31-827 31-829 31-831 
HDWPF L 010371 9-345 433-881 
HIADRS = 177742 47-280 22-648 
HITMIS = 177752 #7~-280 
HT = 090011 47-280 28-743 28-743 . 
ILL DWN 004534 23-686 423-702 
ILLUP 004522 23-668 #23-698 
IOTVEC = 20 #7-280 
KDPARO = 172360 #7-280 
KDPAR1 = 172362 47-280 
KDPAR2 = 172364 47-280 
KDPARS = 172366 47-280 
KDPAR4 = 172370 47-280 
KDPARS = 172372 #7-280 
KDPAR6 = 1723574 47-280 
KDPAR7 = 172376 #7-280 
KDPDRO = 172320 #7-280 
KDPDR1 = 172322 #7-280 
KDPDR2 = 172324 #7-280 
KDPDR3 = 172326 47-280 
KDPDR4 = 172330 #7-280 
KDPDRS = 17233 #7-280 
KDPDR6 = 172334 #7-280 
KDPDR7 = 1723 #7-280 
KERSTK = 001100 #7-280 
KIPARO = 172340 #7-280 *24-717 25-737 25-737 
KIPAR1 = 172342 #7-280 
KIPAR2 = 172344 #7-280 
KIPARS = 172346 47-280 
KIPARG = 172350 #7-280 
KIPARS = 172352 #7-280 *20-599 21-620 *21-635 *24-719 
KIPAR6 = 172354 #7-280 24-721 
KIPAR7 = 172356 #7-280 «24-723 
KIPDRO = 172300 47-280 «24-718 
KIPDR1 = 172302 #7-280 
KIPDR2 = 1723 #7-280 
KIPDR3 = 172306 #7-280 
KIPDR4 = 1723510 #7-280 
KIPDRS = 172312 #7-280 *24-720 
IPDR6 = 172314 #7-280 *24-722 
KIPDR7 = 172316 #7-280 *24=-724 


a se - 
— ee ee -—— 


CKKACC 


ti 


CREATED BY 
CROSS REFERENCE 


_VNN 
ooo 
WAW 
mr 
Ooo 


WG 


SNS SY SW SW NW VW SI SJ 
SSSSSSSSSS 
Vi 
Nm 


SN NV WY 
Oooo 
MW 
MmM™N 
Ono 


vr 
OR 


MACRO ON 6-APR-81 AT 14:09 


REFERENCES 
47-280 


#20-587 
22-650 
12-452 
20-587 


0 
#7-280 7-280 


28-743 
21-608 


12-473 
21-607 
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SEQUENCE 57 
CREF v0O1 


423-713 


12-475 


#24-717 


Se 


Sua 


CKKACC 


EREEDSES 


-_ 
MmONN ee es Ss SS SO 


SSEEEESET 


CREATED BY MACRO ON 6-4PR-87 AT 14:09 
CROSS REFERENCE 
VAL 


COOCOOCOCOCOCOC°oOo 
WATWGW 
Nm 
. 


NS SN SI SJ J SW J SJ SJ “SW SJ _' SW IY SV 
oo 
Peete 
Ww 
os. 


hububababal abet ahah ab abab ababed 
> 

oO 

Ww 

oO 

> 


004666 
177572 
177574 


177772 


REFERENCES 
#7-280 


22-655 
#24-728 


*17-560 


*24-725 
*20-590 


PAGE 5 
SEQUENCE 58 
CREF vO01 


*22-661 
*17-567 


17=559 


* 20-593 «20-600 20-602 #21-613 
24-726 
433-871 
9-343 10-358 11-405 12-456 
18-57 


*21-636 


13-500 


——— 


iii. 


Re TT 


CKKACC CREATED BY MACRO ON 6-APR-81 AT 14:09 PAGE 6 
SEQUENCE 59 
SYMBOL CROSS REFERENCE CREF vol 
SYMBOL VALUE REFERENCES 
PIRGVE = 000240 47-280 
007704 #33-872 
 POWDWN 004 360 8-301 #23-666 23-695 
POWUP 454 23-681 #23-68 
PRDATA 007470 30-791 #32-838 
PRETST pt 9-338 9-346 #9-348 19-584 
PRT ABL 0076 30-770 30-790 #33-860 
PRTITL 007110 30-771 #31-816 
PRO = 000000 #7-280 
PR1 = 000040 #7-280 
PR2 = 000100 #7-280 
PRI = 000140 47-280 
PRL = 000200 #7-280 
PRS = 000240 #7-280 
PRE = 000300 #7-280 
PR7 = 000340 47-280 . 
PS = 177776 47-280 7-280 *10-356 *11-403 *12-449 *13-497 *14-513 *15=522 *16-539 
«17-554 * 18-573 
PSwW = 177776 47-280 
PWRVEC = 000024 #7-280 
RECDAT 007662 *21-622 21-627 32-841 33-860 #33-863 
REC .AD 007666 «10-376 10-380 *11=434 11-438 *12-476 12-480 32-845 33-860 #33-B65 
REC.PS 007676 *10-387 10-391 *#11-423 11-427 12-487 12-491 32-853 33-861 433-869 
REC.SP 007672 * 10-364 10-368 *11=-412 11-416 *12-465 12-469 32-849 33-861 433-867 
RESVEC = 000010 47-280 
R10 =%000000 47-280 
R11 =%000001 #7-280 
R12 =%000002 #7-280 
R13 =%000003 #7-280 
R14 =%000004 #7-280 
R15 =%000005 #7-280 
R6 =%000006 #7-280 *23-6735 *23-674 *23-675 «23-676 *23-677 *23-678 *23-689 * 23-690 
*23-691 *2 3-692 *2 3-693 *2 3-694 
R7 =%000007 #7~280 
SAVRO 006602 * 30-750 430-757 30-807 
SAVR1 006604 * 30-751 #30-758 _ 30-808 
SAVR2 * 30-752 #30-759 30-809 
SAVR3 006610 * 30-753 #30-760 30-810 
SAVR4 006612 * 30-754 #30-761 30-811 
SAVR5 006614 * 30-755 #30-762 30-812 
SAV6 004560 *23-679 23-685 423-711 
SCOPE = 0 #7-280 
SDPARO = 172260 #7-280 
SDPAR1 = 172262 #7-280 
SDPAR2 = 172264 #7-280 
SDPAR3 = 172266 #7-280 
SDPAR4 = 172270 #7-280 
SDPARS = 172272 47-280 
SDPAR6 = 172274 #7-280 
SDPAR7 = 172276 #7-280 
SDPDRO = 172220 #7-280 
SDPDR1 = 172222 #7-280 


en ee ee eee ee 
mm em ee ee — 


CKKACC 


STACK? 
STKLMT 


CREATED BY MACRO ON 6-APR-81 AT 14:09 
CROSS REFERENCE 
VAL 


rmnronronronroenronr 
Nm 


= 000500 


177774 
010151 
0007 


00 
177570 


REFERENCES 
#7-280 


#7-280 
#7-280 


*25-734 


433-877 


#25-73) 
23-688 


*25-737 


13-501 


10-377 
14-515 


*8-500 
15-536 


em ae eee ee 
- es 


PAGE 7 
SEQUENCE 60 
CREF vOQ1 


#25-731 


*25-737 


8-300 
16-551 


11-413 
16-547 


*8-500 


17-570 


10-361 
12-450 
16-541 
11-424 
17-563 
*8-300 
18-582 


10-371 
12-458 
16-550 


11-435 
21-623 


10-394 


11-441 


12-494 


—s 


CKKACTC 


uuunnu 


CREATED BY MACRO ON 6-APR-81 AT 14:09 
SYMBOL CROSS REFERENCE 
— SYMBOL VALUE 


177674 


REFERENCES 
a7~ 


280 
0 


#7-280 


7-280 


10-394 


#30-764 
#33-873 


32-855 
30-782 


11-441 


«8-300 


rm a ee ee ee St” 


PAGE 8 
SEQUENCE 61 
CREF yOQ1 


12-494 


13-506 


9-347 
73-495 


14-519 


15-536 


10-355 
14 


16-551 


17-570 


CKKACC CREATED BY MACRO ON 6-APR-81 AT 14:09 PAGE 9 
| SEQUENCE 62 
| SYMBOL CROSS REFERENCE CREF  vO1 
| SY REFERENCES 
| UDPAR7 = 177676 #7~-280 

= 177620 #7~-280 
= 177622 #7~280 
= 177624 #7-280 
= 177626 #7~-280 
= 177630 47-280 
= 177632 #7-280 
= 177634 #7-280 g 
= 177636 #7-280 
= 177640 #7-280 
= 177642 #7~-280 
= 177644 #7-280 
= 177646 #7~-280 
= 177650 #7-280 
= 177652 #7-280 
= 177654 #7-280 
= 177656 #7~-280 
= 177600 #7-280 
= 177602 47-280 
= 177604 #7-280 
= 177 #7-280 
= 177610 #7-280 
= 177612 #7-280 
= 177614 #7-280 
= 177616 #7-280 
010037 23-6 #33-875 
= 000600 #7~-280 
= #7~-280 
010311 9-347 #33-880 
550 23-668 23-681 #23-709 
7700 *21=-617 *21-618 *21-619 21-624 32-855 33-861 #33-870 
001420 47-296 8-352 9-343 
1100 7-291 #7-291 
= keekee 7-293 7-293 
001174 7-293 #7-293 
001150 #7-293 
001156 #7-293 28-743 
001166 #7-293 
45 *28-743 «28-743 28-743 *28-743 #28-743 
= w¥eeeee 29-745 
= eeeRKE -300 8-300 
005326 25-737 #25-737 
001142 #7-292 
73 9-349 28-743 28-743 28-743 #28-743 
005356 25-737 #25-737 
00610 27-741 27-741 #27-741 
00112 #7-292 
003734 19-584 19-584 #19-584 
2 27-741 #27-741 
003724 7-289 9-337 #19-584 
3672 8-500 419-584 
003743 19-584 #19-584 





SENV 
SENVM 


: 


SF IL 
FILLS 
$GET42 


CREATED BY 
ey REFERENCE 


003740 


Ae Seine eo 
Aunsrmo 


29-745 


12-459 


7-291 
* 25-737 


28-743 


MACRO ON 6-APR-81 AT 14:09 


12-447 
elk 


19-584 
#30-750 


25-757 
* 25-737 
#28-7453 
*25-737 
#7-292 
#25-737 


%7~293 


«8-300 
#28-7453 


PAGE 10 
SEQUENCE 63 
CREF 


«7-293 
#28-743 


* 25-737 


425-737 
8-300 
25-737 


#7-293 


7-293 
#28-745 
#16-552 


*26-739 
* 19-584 


v01 


14-507 


28-743 


47-295 


28-743 
25-7357 


26-7359 
* 19-584 


15-529 


#11-400 
#14-507 
#17-552 


#26-739 
19-584 


16-537 


#11-447 
#14-520 
#17-571 


19-584 


17-552 


11-447 
14-520 
17-571 


19-584 


18-576 


#12-447 
#15-520 
#18-571 


| CKKACC 


SSWREG 


CREATED BY MACRO ON 6-APR-81 AT aie” 
CROSS REFERENCE 
VAL 


— 


REFERENCES 


#7-283 
29-745 


#7-291 


7-287 


7-291 


#7-288 
8-300 


28-743 


#29-745 


29-745 


29-745 


28-743 
26-739 


PAGE 11 
EQUENCE 64 
CREF 


7-288 
8-300 


25-737 
#7-288 


17-552 


#28-743 
#28-745 
#28-743 


29-745 
29-745 
29-745 


29-745 
#28-743 
#28-743 


#26-739 


v01 


#7-288 
8-300 


19-584 
«13-496 
#28-743 


#17-552 


29-745 
29-745 
29-745 


8-300 
8-300 


*14~-508 


29-745 


8-300 
8-300 


16-537 


8-300 
8-300 


7-247 
15-520 


*16-538 


#18-571 


29-745 
29-745 


—--—- _ ——<_. = ee ae eee ee eee 


| CKKACC CREATED BY MACRO ON 6-APR-81 AT 14:09 PAGE 12 
| en 65 


| MACRO CROSS REFERENCE v01 
MACRO NAME REFERENCES 
| COMMEN #7-280 
ENDCOM #7-280 
| ERR #7=-255 #10~365 #10-377 #10-388 #11-413 #11-424 #11=-435 #12-466 #12-477 #12-488 
413-503 #14-515 #15-529 #16-547 #17-563 421-623 
#7-280 
47-280 25-737 
#7-280 
47-273 10-394 11-441 12-494 13-506 14-519 15-536 16-551 17-570 18-582 
ig {6 10-394 11-441 12-494 13-506 14-519 15-535 16-551 17-570 18-582 
# - 
#7~280 49-355 #10-400 #11-447 #12-495 #13-507 #14-520 415-537 #16-552 #17-571 
47-269 #10-358 #11-405 #12-454 #13-500 #14-511 #15=-527 #16=-542 #17-559 #18-578 
47-280 #7~-293 #7-293 #27-741 
or-Sa 47-293 47-293 47-293 #27-741 
lig (8 10-356 12-449 13-497 14-513 15-522 16-539 17-554 18-573 


#29~-745 #29-745 #29~745 #29-745 #29-745 #29-745 


#7-280 47-289 #7-291 47-291 #7-291 47-292 #7-293 #10-355 #10-355 #11-400 
#11-400 412-447 #12-447 #13-495 #13-495 #14-507 414-507 #15-520 #15-520 #16-537 
#16-537 #17-552 #17-552 #18-571 #18-571 419-584 423-665 425-737 #26-739 #27-74) 


47-280 #8-300 8-300 

plan, ~# #10-355 #11-400 #12-447 #13-495 #14-507 #15-520 #16-537 #17-552 #18-576 
oT aae #10-355 #11-400 412-447 #13-495 #14-507 #15-529 #16-537 #17-552 #18-576 
47-280 49-341 #19-584 

47-280 

#7-280 

#7-280 30-782 

#7-280 30-784 32-839 32-841 32-843 32-845 32-847 32-849 32-851 32-853 


#7-280 #10-355 #11-400 #12-447 #13-495 #14-507 #15-520 #16-537 #17-552 #18-576 
#30-767 #30-781 #30-783 #30-797 #30-800 #30-805 #31-817 #31-819 #31-821 #31-825 
#31-825 #31-827 #31-829 #31-831 #31-833 #31-835 


#7~280 

#7-280 9-355 10-400 11-447 12-495 13-507 14-520 15-537 16-552 17-571 

#29-745 #29-745 #29~-745 #29~-745 #29-745 #29-745 

17-2800 

#7-235 7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 
7-280 7-280 7-280 7-280 7-280 7~280 7-280 7-280 7-280 7-280 
7-280 7-280 7-280 7-280 7-280 7-280 7-280 7~280 7-280 7-280 
7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 
7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 7-280 
7-280 7-280 7-280 


#7-238 #7-244 








mm ee a ee ——_ 


CKRACC CREATED BY MACRO ON 6-APR-81 AT 14:09 PAGE 13 
SEQUENCE 66 
MACRO NAME. REFERENCES pia tos 
' SETUP a3 47-239 #7-288 
. SRY ; hint #7-267 
. Sil 7-247 
.SACT 47-239 #7-289 
.SAPTB #7-239 7-292 
. SAPTH #7-239 7-291 
F TY 47-239 7-293 
$CATC #7-238 #7-281 
. #7-238 
$S1ZE £72589 25-737 
.85] #7- - 
#7-239 #29-7465 
ST YPD 47-239 #27-74)1 
$TYPE #7-238 28-743 
STYPO 47-238 26-739 
1170 #7-238 #7=-280 


or em ee we ee ee Ce ew ee 


